исправить код в односвязном списке

[svetik290895]

Создать односвязный список типа очередь. Поменять местами первый и второй элементы. Удалить первый элемент и 5-й. Добавить новый в конец списка, получившийся список переписать в файл. Результаты отображать на экране. Не получается сделать запись в файл...помогите пожалуйста...остальное все работает.. Что не так?

uses crt;
const n=20;
type spisok=^zap;
     zap=record
     inf:integer;
     next:spisok;
end;
var a,b,beg,c,t:spisok;
    k,m,i:integer;
    f:file of integer;
Procedure Sozd_O;
 begin
  new(a);
   a^.inf:=maxint;
    b:=a;
     beg:=a;
      a^.next:=nil;
       for i:=2 to n do
        begin
          new(a);
           a^.inf:=random(20);
            b^.next:=a;
             b:=a;
              a^.next:=nil;
         end;
  end;
Procedure Print_O;
 begin
  a:=beg^.next;
   while a^.next<> nil do
    begin
     write(a^.inf:4);
     a:=a^.next;
    end;
 end;
Procedure pomenat;
 begin
 writeln;
  writeln('pomenat mestami 1 i 2 element');
   a:=beg^.next;
     k:=a^.next^.inf;
       a^.next^.inf:=a^.inf;
        a^.inf:=k;
   end;
Procedure del;
   begin
    writeln;
     writeln('ydalit 1 i 5 element');
      a:=beg^.next;
        for i:=2 to 5 do
         a:=a^.next;
          c:=a^.next;
           a^.next:=a^.next^.next;;
            dispose(c);
            begin
             a:=beg^.next;
                 dispose(beg);
                   beg:=a;
             end;
     end;
Procedure dobavit;
 begin
  writeln;
   writeln('dobavit novii element v konec');
    new(t);
     t^.inf:=random(30);
      a^.next:=t;
       a:=t;
        a^.next:=nil;
 end;
Procedure zapis;
 begin
    writeln;
     writeln('perepisat v file');
      a:=beg^.next;
        for i:=2 to 5 do
         a:=a^.next;
          c:=a^.next;
           a^.next:=a^.next^.next;;
            dispose(c);
            begin
             a:=beg^.next;
                 dispose(beg);
                   beg:=a;
             end;
     end;
begin
clrscr;
randomize;
Assign(f,'C:\pp.txt');
Sozd_O;
Print_O;
pomenat;
Print_O;
del;
Print_O;
dobavit;
Print_O;
zapis;
Print_o;
readln;
end.

Кросспост
http://programmersforum.ru/showthread.php?t=277590