Напечатать фамилию чемпиона и его результат — Pascal(Паскаль)

uses crt;

var
  i, max, size: integer;
  winer: string;
  nam: array [1 .. 10] of string;
  bal: array [1 .. 10] of integer;

begin
  clrscr;
  writeln('Введите кол-во участников соревнования');
  readln(size);
  FOR i := 1 TO size do
  begin
    clrscr;
    writeln('Фамилия участника');
    readln(nam[i]);
    writeln('Его балл');
    readln(bal[i]);
  end;
  max := bal[1];
  writeln('Участники');
  FOR i := 1 TO size do
  begin
    writeln(nam[i], ' Балл ', bal[i]);
  end;
  FOR i := 1 TO size do
  begin
    IF bal[i] > max THEN
    begin
      max := bal[i];
      winer := nam[i];
    end;
  end;
  writeln(winer, ' победитель. Баллов ', max);

end.