Определить фамилию мужчины, имеющего самую большую зарплату

type firma=record
  Fam:String;
        ZP:real;
        Pol:Boolean; //True - мужчина
 
  end;
 
var
  Form1: TForm1;
 fm: array[1..20] of firma;
  n: byte;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Stringgrid2.visible:=false;
 
    StringGrid1.Cells[0,0]:='№';
 StringGrid1.Cells[1,0]:='Фамилия И.О.';
 StringGrid1.Cells[2,0]:='Зарплата';
 StringGrid1.Cells[3,0]:='Пол';
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
button2.Visible:=true;
for i:=1 to n do begin
fm[i].Fam:=Stringgrid1.Cells[1,i];
fm[i].ZP:=strtoint(stringgrid1.cells[2,i]);
fm[i].Pol:=strtobool(stringgrid1.Cells[3,i]);
 
end;
 
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var h:integer;
begin
val (edit1.Text,n,h);
if (h=0) and (edit1.Text<>'')then begin
Stringgrid1.RowCount:=n+1;
for h:=1 to n do
Stringgrid1.Cells[0,h]:=inttostr(h);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var s:real;
i:byte;
max:integer;
begin
Stringgrid2.Visible:=true;
max:=strtoint(stringgrid1.cells[3,1]);
for i:=2 to n do
if Fm[i].Zp>max then
max:=Strtoint(stringgrid1.Cells[3,i]);
label2.Caption:=floattostr(s);
Stringgrid2.Cells[1,1]:=fm[i].Fam;
Stringgrid2.Cells[1,2]:=Floattostr(fm[i].ZP);
Stringgrid2.Cells[1,3]:=booltoStr(fm[i].Pol);
 
end;
 
end.