Нахождение данных в файле

[Carefuly]

Написать программу, которая в файле находит самого высокого человека и выводит его данные.

[Stilet]

Файл в студию.

[Carefuly]

Вот этот файл

[Stilet]

var f:text;e,s,smax:string; k,i,hmax:integer;
begin
 assign(f,'names.txt'); reset(f);
 hmax:=0;
 while not eof(f) do begin
  readln(s); s:=trim(s); i:=length(s); while (i>0)and(s[i]<>' ') do dec(i);
  val(copy(s,i,Length(s)-i-1),k,i);
  if k>hmax then begin hmax:=k; smax:=s;end;
 end;
 write(smax); readln;
 close(f);
end.

Писал с потолка без проверки, но думаю подойдет.

[Carefuly]

Большое спасибо!Stilet!you are best of the best))

[Stilet]

Пожалуйста )