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 Lower : Name;
Var i,tmp : Name;
Begin
 i:=Mary;
 tmp:=Mary;
 Repeat
   If group[i].Height<group[tmp].Height then tmp:=i;
   Inc(i);
 Until i=Pol;
 Lower:=tmp;
End;

Function LowerCost : Name;
Var i,tmp : Name;
Begin
 i:=Mary;
 tmp:=Mary;
 Repeat
   If group[i].Cost<group[tmp].Cost then tmp:=i;
   Inc(i);
 Until i=Pol;
 LowerCost:=tmp;
End;