Ввести информацию по 10 участникам соревнований (ФИО, год рождения, результат). Определить победителя соревнований — Pascal(Паскаль)

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.