Задача на Паскаль.

Program Zadacha;
uses crt;
const
 n = 25;
type
 anketa = record
  pol:char;
 end;
var
 i:integer;
 ank:array[1..n] of anketa;
 mg:char;
 
procedure opredelit(var pl:char);
var
 m,g:integer;
begin
writeln('╔═══════════════════════════════════════════════════════════╗');
writeln('║ Задан массив записей очленах группы (в группе 25 человек),║');
writeln('║содержащий анкетные данные членов группы, пол (М и Ж).     ║');
writeln('║Описать процедуру, определяющую кого больше: М или Ж.      ║');
writeln('╚═══════════════════════════════════════════════════════════╝');
m:=0;
g:=0;
for i:=1 to n do begin
  if (ank[i].pol='M') or (ank[i].pol='m') then inc(m);
  if (ank[i].pol='G') or (ank[i].pol='G') then inc(g);
end;
if m>g then pl :='m';
if m<g then pl:='g';
 
end;
begin
 clrscr;
 for i:=1 to n do begin write('Vvedite pol vladelca ',i,' anceti: ');
 readln(ank[i].pol); end;
 opredelit(mg);
 writeln(mg);
 if mg='m' then writeln('Bolshe mugskih anket') else
       writeln('Bolshe genskih anket');
 readkey;
end.