Описать функцию, функцию Test(G), проверяющую, что в группе самая высокая из женщин ниже самого высокого из мужчин

type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);
    data = record
            male: boolean; {пол: true - мужской, false - женский}
            height:140..200 end; {рост}
             end;
    group = array[name] of data;

PROGRAM MnW;
uses crt;
type
  name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);
  data = record
  male : boolean;
  height:140..200;
end;
group = array[name] of data;
 
 
function Test(g:group):boolean;
var i,j:name;
mn:140..200;
iv:140..200;
begin
  Test:=false;
  mn:=140;
  iv:=140;
  for i:=Mary to Sara do
    if (g[i].male=false)and(g[i].height>mn)then mn:=g[i].height;
 { writeln ('MAX woman height = ',mn);  }
  for i:=Mary to Sara do
    if (g[i].male=true)and(g[i].height>iv) then iv:=g[i].height;
 { writeln ('MAX man height = ',iv);    }
  for i:=Mary to Saran do
    if (g[i].male=true)and(mn<iv) then
    begin
        Test:=true;
        break;
    end;
end;
 
 
var a:group;
i:name;
s:string;
flag1,flag2:boolean;
 
begin
  clrscr;
  writeln('Enter ',ord(Sara)+1,' records:');
  for i:=Mary to Sara do
  begin
    writeln('Record ',ord(i)+1);
    repeat
      write(' M or W: ');
      readln(s);
      if s='m' then
        begin
            a[i].male:=true;
            flag1:=true;
        end
        else
        begin
            a[i].male:=false;
            flag2:=true;
        end;
    until(s='m')or(s='w');
    repeat
      write(' rost [140..200]: ');
      readln(a[i].height);
    until a[i].height in [140..200];
  end;
  if (Test(a))and(flag1)and(flag2) then writeln('V gruppe est W s visokim rostom, kotoraya   nizhe M s samim visokim rostom');
  if (Test(a)=false)and(flag1)and(flag2) then writeln('V gruppe net W s samim visokim rostom, kot. nizhe samogo visokogo M');
  if (((flag1)and(flag2))=false) then writeln('V gruppe est tolko M ili W');
  readln;
end.

function Test(g :group) : boolean;
var
  i, j : name;
begin
  j := Mary;
  for i := Succ(j) to Sara do
    if g[i].Height > g[j].Height then j := i;
 
  Test := not g[j].male;
end;