Не записывает список в файл

/////Тип динамических переменных
type 
zap=^pointer;
pointer = record
     inf1 : integer;
     inf2 : string;
     next : zap;
     prev : zap;
end;
/////Тип записей в файле
type fz = record
     inf1 : integer;
     inf2 : string;
     end;
////\\\\
var     first,last,elem:zap;
      fzap:fz; 
    fout:file of fz; 
    fname:string;
/////Проверка существования файла////////////////////////////////////
function existf(x:string):boolean;
begin
 assign(fout,x);
 {I-}
 reset(fout);
 {I+}
 if IORESULT = 0 then begin
   close(fout);
   existf:=true;
 end else begin
   existf:=false;
 end;
end;
/////Сохраняем список в файле////////////////////////////////////////
procedure save_in_file;
var over:integer;
begin
  over:=0;
  while 1=1 do begin
    writeln('Please enter name of file:');
    readln(fname);
    if existf(fname)=true then begin
      writeln('File already exist!');
      writeln('<BackSPACE> Overwrie');
      writeln('<ENTER> New');
      writeln('<Space> Add to file');
      writeln('<ESC> Back to previous menu');
      case ord(readkey) of
        27:break;
        8:over:=1;
        13:;
      end;
    end else begin
      assign(fout,fname);
      rewrite(fout);
      elem:=first;
      fzap.inf1:=elem^.inf1;
      fzap.inf2:=elem^.inf2;
      write(fout,fzap);
      elem:=elem^.next;
      while elem <> first do begin
        fzap.inf1:=elem^.inf1;
        fzap.inf2:=elem^.inf2;
        write(fout,fzap);
        elem:=elem^.next;     
      end;
      close(fout);
      writeln('List successfully recorded in file!');
      readkey;
      break;    
    end;
    if over=1 then begin
      assign(fout,fname);
      rewrite(fout);
      elem:=first;
      fzap.inf1:=elem^.inf1;
      fzap.inf2:=elem^.inf2;
      write(fout,fzap);
      elem:=elem^.next;
      while elem <> first do begin
        fzap.inf1:=elem^.inf1;
        fzap.inf2:=elem^.inf2;
        write(fout,fzap);
        elem:=elem^.next;     
      end;
      close(fout);
      writeln('List successfully recorded in file!');
      readkey;
      break;
     end;
  end;
end;