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

uses crt;
const nmax=30;
var s,s1,fmx:string;
    n,i,r,c:integer;
    mx:byte;
begin
clrscr;
write('Введите количество учеников до ',nmax,' n=');
readln(n);
writeln('Введите одной строкой через пробел фамилии и рост(3 цифры) учеников:');
mx:=0;fmx:='';
for i:=1 to n do
 begin
  readln(s);
  val(copy(s,pos(' ',s)+1,3),r,c);
  if r>mx then
   begin
    mx:=r;
    fmx:=s;
   end;
 end;
writeln('Самый высокий - ',fmx);
readln
end.