Programozas órára?

Idáig juttotam

program asd;

uses crt;

type ember=record

nev : string;

pont : byte;

end;

var f : file of ember;

i,j : byte;

r : ember;

t : array[1..5] of string;

begin

clrscr;

assign(f,'k:\nevekz.dat');

rewrite(f);

for i:=1 to 5 do begin

write('Kerem a nevet: ');

readln(r.nev);

write('Kerem a pontot: ');

readln(r.pont);

write(f,r);

end;

close(f);

reset(f);

end.

Most kikéne olvasi a nevet és a pontszámot a file bol és kiválasztani a a legnyagyobb számú embert és kiírni nevét és pontszámát hogy?