type
  TMyRecord = record
  Name, SurName: string;
  Points, Time: Integer;
  end;


  TMyRecordArray = array of TMyRecord;

procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;
i1:integer;
lista: TMyRecordArray;
begin
i1:=0;
AssignFile(f, 'lista.dat');
reset(f);
while not eof(f) do
begin
inc(i1);
readln(f,name,surname,points,time);
setlength(lista,i1);
end;
CloseFile(f);
end;