Типизированный файл?!(Delphi)

[Npwas]

Обясните как считать из типизированного файла данные!!! Я вот сохраняю в файл, ток не знаю, правильно или нет( по крайней мер туда, что-то добавляется), а вот когда считываю из файла уже имеющегося, то считывает пустые строки в динамический список!!!
Объясните как правильно сделать!!!

Вот мой код:

CONST
   S='datafile.dat';

TYPE
   String20=string[20];
   LIST_UK=^LIST;
   LIST = Record
      name:String20;
      lastname:String20;
      next:LIST_UK;
   end;

Var
  Spisok,Head:LIST_UK;
  name_vv,lastname_vv:String20;
  g:byte;
  F:file of LIST_UK;

{ПОЦЕДУРА ДОБАВЛЕНИЯ НОВОГО ЭЛ-ТА}
Procedure Input(name_pr,lastname_pr:String20);
Var
   tmp:LIST_UK;
  BEGIN
    IF Spisok=nil Then
      Begin
        new(Spisok);
        tmp:=Spisok;
        Head:=Spisok;
      End
    Else
      Begin
        tmp:=Spisok;
        While tmp^.next<>nil Do
          tmp:=tmp^.next;
        New(tmp^.next);
        tmp:=tmp^.next;
      End;
    tmp^.next:=nil;
    tmp^.name:=name_pr;
    tmp^.lastname:=lastname_pr;
  END;

{ПРОЦЕДУРА ОТОБРАЖЕНИЯ ВСЕГО СПИСКА}
PROCEDURE  Show;
 BEGIN
   Spisok:=Head;
   While Spisok<>nil Do
    Begin
      Writeln('Name: ',Spisok^.name);
      Writeln('LastName:',Spisok^.lastname);
      Writeln;
      Spisok:=Spisok^.next;
    End;
  Spisok:=Head;
 END;

{ПРОЦЕДУРА СОХРАНЕНИЯ В ФАЙЛ}
PROCEDURE SaveToFile;
 BEGIN
   Spisok:=Head;
   AssignFile(F,S);
   Rewrite(F);
   While Spisok<>nil Do
     Begin
       Write(F,Spisok);
       Spisok:=Spisok^.next;
     End;
   CloseFile(F);
  Spisok:=Head;
 END;

{ПРОЦКДУРА ОТКЫРТИЯ ФАЙЛА И СЧИТЫВАНИЯ ДАНЫЫХ В ДИНАМИЧЕСКИЙ СПИСОК}
PROCEDURE OpenChoosenFile;
  Var
     tmp:LIST_UK;
  BEGIN
    AssignFile(F,S);
    Reset(F);
    While not Eof(F) do
      Begin
        IF Spisok=nil Then
          Begin
            new(Spisok);
            tmp:=Spisok;
            Head:=Spisok;
          End
        Else
          Begin
            tmp:=Spisok;
            While tmp^.next<>nil Do
                    tmp:=tmp^.next;
            New(tmp^.next);
            tmp:=tmp^.next;
          End;
       tmp^.next:=nil;
       Write(F,tmp);
     End;
   CloseFile(F);
  END;

[Rin]

Вы создаете файл указателей на записи, а не файл записей.

[Npwas]

Так это получается, стоит как то записывать по эл-там в файл?! Или как то подругому, можно по побдобней?!

[Rin]

Один из вариантов такой:

TYPE
   String20=string[20];

   LIST_UK=^LIST;

   LIST_F = Record
      name:String20;
      lastname:String20;
   end;

   LIST = Record
      LIST_S:LIST_F;
      next:LIST_UK;
   end;

Var
  Spisok,Head:LIST_UK;
  Spisok_F:LIST_F;
  name_vv,lastname_vv:String20;
  g:byte;
  F:file of LIST_F;

[Npwas]

Спаиб за помощь, на весы нажал!!! Все, теперь разобрался че к чему!!!