Макрос, как записать правильно. В группе 25 студентов. Дан возраст каждого студента. Определить, сколько в группе студентов моложе 21 года.

program gg;

var a,b,c,i:integer;

begin

   for i := 1 to 25 do

       begin

         write('введите возраст: ');

         readln(a);

         if a < 21 then b:= b+1

         else c:= c +1;

         a:= 0;

       end;    

       writeln('Моложе 21: ',b);

       writeln('Старше 21: ',c);

end.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

7 бит, следовательно 2^7=128