Дан список учеников класса и рост. Определить Фамилия Имя и рост высокого ученика — Pascal(Паскаль)

program ucheniki;
const n=3;
var a:array[1..n] of real;
    s:array[1..n] of string;
    j,i:integer;
    c:char;
    max:real;
begin
for i:=1 to n do
 begin
 for J:=1 to 2 do
     begin
     repeat
     read(c);
     s[i]:=s[i]+c;
     until c=' ';
     end;
 readln(a[i]);
 end;
for i:=1 to n do
if max<a[i] then
   begin
   max:=a[i];
   j:=i;
   end;
writeln(S[j],max:4:2);
end.