В ЭВМ, обслуживающую выборы, вводят следующую информацию: фамилии кандидатов и количество набранных ими голосов. Составьте программу, обеспечивающую такой ввод и вывод фамилии кандидата, набравшего максимальное количество голосов — Pascal(Паскаль)

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.