Описать функцию Max(G) определяющий наибольший рост женщины из группы

type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);
     data = record
        male : boolean; //пол: false - мужской, true - женский
        height:140..200; //рост
        end;
     group = array[name] of data;
 
function Max(g:group):real;
var k,x:integer;
 t:Real;
    n:name;
begin
  X:=0;
  k:=0;
  for n:=Mary to Sara do
    if (g[n].male=True) then begin
      .......?????
      end;
    Max:=x;
end;
var g:group;
    n:name;
begin
  Randomize;
  g[Mary].male:=True; g[Jane].male:=True; g[Kim].male:=True;
  g[Bob].male:=False; g[Jan].male:=False; g[Pit].male:=False; g[Tom].male:=False;
  g[Sara].male:=True;
  for n:=Mary to Sara do
    begin
      g[n].height:=Random(60)+140;
     write(g[n].male,' ',g[n].height,' '); writeln;
    end;
 write (Max(g));
 readln;
end.

type
  name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);
  data = record
    male : boolean; //пол: false - мужской, true - женский
    height:140..200; //рост
  end;
  group = array[name] of data;
 
function Max(g:group):name;
var
  k:integer;
  x,n:name;
begin
  k:=0;
  for n:=Mary to Sara do
    if (g[n].male) and (g[n].height>k) then
      begin
        k:=g[n].height;
        x:=n;
      end;
    Max:=x;
end;
 
var
  g:group;
  n:name;
begin
  Randomize;
  g[Mary].male:=True;
  g[Jane].male:=True;
  g[Kim].male:=True;
  g[Bob].male:=False;
  g[Jan].male:=False;
  g[Pit].male:=False;
  g[Tom].male:=False;
  g[Sara].male:=True;
  for n:=Mary to Sara do
    begin
      g[n].height:=Random(60)+140;
      writeln(n:16,g[n].male:8,g[n].height:8);
    end;
 writeln ('Самая высокая: ',name(Max(g)));
 readln;
end.