Код:
Const n=3;
Type students=record
fam:string;
pol:char;
height:byte;
end;
var s,max:students;
i:byte;
Begin
Max.height:=0;
For i:=1 to n do begin
Readln(s.fam);
Readln(s.pol);
Readln(s.height);
If (s.pol='ж') and (s.height>max.height)
then max:=s;
end;
Writeln(max.fam);
Writeln(max.pol);
Writeln(max.height)
End.