Wyświetlanie rekordów z pliku. [Turbo Pascal 7.0]

[andy]

Witam, do pliku zapisałem kilka rekordów. Każdy składa sie z imienia, nazwiska, wieku i numeru telefonu. Chciałem zrobić, żeby program wyświetlił mi z każego rekordu np. imie. Napisałem taką:

Procedure Pokaz_rekordy;
Begin
   Writeln('Rekordy znajdujace sie w bazie: ');
	  Otworz_plik;
		 For i:= 0 To FileSize(Plik) Do
			Begin
			  Seek(Plik,i);
			  Read(Plik,Tosoby);
			  Writeln(Tosoby.imie);
			End;
	  Zamknij_plik;
   Readln;
end;

procedurke ale kompilator wywala mi "Disk read error" przy:
Read(Plik, Tosoby);. Co zrobiłem źle?