Написать логическую функцию f(gr:gruppa):boolean, проверяющую, есть в группе gr хотя бы два мужчины

type
data=record ch:1..31; m:1..12; g:1900..1979 еnd;
anketa=record
name:srting;
pol:char;
d_r:data
end;
gruppa=array l1..25] of anketa;

uses crt;
type
  name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol);
  data = record
    male: boolean;
    height: 140..200;
    year: word;
  end;
  group = array[name] of data;
 
function Same(g: group): boolean;
var
  i, j: name;
begin
  Same := false;
  for i := Mary to Bill do
    for j := succ(i) to Pol do
      if g[i].year = g[j].year then
      begin
        Same := true;
        break;
      end;
end;
 
var
  a: group;
  i: name;
  s: string;
 
begin
  clrscr;
  writeln('Введите ', ord(Pol) + 1, ' записей:');
  for i := Mary to Pol do
  begin
    writeln('Запись ', ord(i) + 1);
    repeat
      write(' Пол (мужской или женский) ');readln(s);
      if s = 'мужской' then a[i].male := true
      else a[i].male := false;
    until(s = 'мужской') or (s = 'женский');
    repeat
      write(' Рост [140..200]: ');readln(a[i].height);
    until a[i].height in [140..200];
    repeat
      write(' Год рождения: ');readln(a[i].year);
    until a[i].year > 0;
  end;
  if Same(a) then 
    write('В группе есть 2 человека с одинаковым годом рождения')
  else 
    write('В группе нет 2х человек с одинаковым годом рождения');
  readln
end.

type
data=record
     ch:1..31;
     m:1..12;
     g:1900..1979;
     end;
anketa=record
       name:string;
       pol:char;
       d_r:data;
       end;
gruppa=array [11..25] of anketa;
function f(gr:gruppa):boolean;
var i,j:byte;
begin
result:=false;
i:=11;
while (i<25)and not result do
 begin
  j:=i+1;
  while(j<=25) and not result do
  if (gr[i].pol='m')and(gr[j].pol='m')and(gr[i].d_r.ch=gr[j].d_r.ch)
  then result:=true else inc(j);
  if not result then inc(i);
 end;
end;