uses crt;
type kand=record
fam:string[20];
gol:word;
end;
var kn,kmx:kand;
i,mx:word;
c:char;
begin
clrscr;
writeln('Введите сведения о кандидатах, окончание ввода Esc');
i:=0;
mx:=0;
repeat
i:=i+1;
writeln('Кандидат ',i);
write(' фамилия - ');readln(kn.fam);
write(' голоса - ');readln(kn.gol);
if kn.gol>mx then
begin
mx:=kn.gol;
kmx:=kn;
end;
c:=readkey;
until c=#27;
writeln;
write('Максимальное число голосов набрал ',kmx.fam,' = ',mx);
readln
end.