Выбрать самого высокого ученика по данным из таблицы — Pascal(Паскаль)

uses crt;

var
  i, max, rr, vv, size: integer;
  vnam1, vnam2: string;
  nam1: array [1 .. 10] of string;
  nam2: array [1 .. 10] of string;
  r: array [1 .. 10] of integer;
  v: array [1 .. 10] of integer;

begin
  clrscr;
  writeln('Введите кол-во учеников в классе');
  readln(size);
  FOR i := 1 TO size do
  begin
    clrscr;
    writeln('Введите фамилию ученика, имя, рост, вес через Enter');
    readln(nam1[i]);
    readln(nam2[i]);
    readln(r[i]);
    readln(v[i]);
  end;
  clrscr;
  max := r[1];
  FOR i := 1 TO size do
  begin
    IF r[i] > max THEN
    begin
      vnam1 := nam1[i];
      vnam2 := nam2[i];
      rr := r[i];
      vv := v[i];
      max := r[i];
    end;
  end;
  clrscr;
  writeln('самый высокий ученик');
  writeln('Фамилия', 'Имя':10, 'Рост':10, 'Вес':10);
  writeln(vnam1, vnam2:12, rr:12, vv:12);

end.