Program zap_18;
Uses Crt;
Const n=10;
Type strel = record
fio:string[20];
god,rez:integer;
end;
Var a : array[1..n] of strel;
i ,k:byte;
max:integer;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите фио');
Readln(fio);
Writeln(' Введите год рождения');
Readln(god);
Writeln(' Введите результат стрельбы');
Readln(rez);
End;
Max:=a[1].rez; k:=1;
for i:=2 to n do
with a[I] do
if max<rez then  begin max:=rez; k:=I; end;
Writeln('Победитель ',a[k].rez);
Readln;
end.