Записи, файлы, строки.

type name=(mary, jane, kim, bob, jan,pit,tom,sara,bill,pol);
data=record
male: boolean; {пол:true-муж, false-жен}
height:140..200; {рост}
cost:word; {зарплата}
end;
group = array[name] of data;

function higher(const g: group): name;
var
i: name;
begin
higher:=Low(higher);
while not g[higher].male do
higher:=name(Ord(higher)+1);
for i:=higher to High(i) do
if g[i].male and (g[i].height>g[higher].height) then
higher:=i
end;
 
procedure Fill(var g: group);
var
i: name;
begin
Randomize;
for I:=Low(i) to High(i) do
with g[i] do
begin
male:=Random<=0.5;
height:=Random(200-140+1)+140
end
end;
 
var
g: group;
begin
Fill(g);
WriteLn(Ord(higher(g)));
ReadLn
end.

function vism:string; 
var i,j:integer;
begin
for i:=1 to 6 do
if p[i].pol = 'm' then
   begin
     j:=i;
     break;
   end;
buf1:= p[j].rost;
buf:= p[j].fio;
for i:= j+1 to 6 do
if p[i].pol='m'then
if p[i].rost>buf1 then
   begin
     buf:= p[i].fio;
     buf1:= p[i].rost;
   end;
vism:= buf;
end;