Односвязный список

[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('zapisat fail');
     rewrite(f);
         while a^.next<>nil do
           begin
            write(f,a^.inf);
              a:=a^.next;
               close(f);
            end;
     end;
Procedure vivod;
 begin
  while a^.next<>nil do
           begin
            write(f,a^.inf);
              a:=a^.next;read(f,m);
               write(m)
            end;
      close(f);
         readln;
 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;
vivod;
Print_o;
readln;
end.

[Serge_Bliznykov]

форматирование кода зачётное!!
Интересно, это кто-то специально так сделал или случайно так вышло?!

[svetik290895]

Сообщение от Serge_Bliznykov

форматирование кода зачётное!!
Интересно, это кто-то специально так сделал или случайно так вышло?!

Так оформлять удобнее для помощи! Лучше бы помогли...

[ViktorR]

Могу предположить, что Вы не вовремя закрываете файл.

Procedure zapis;
   begin
   writeln;
    writeln('zapisat fail');
     rewrite(f);
         while a^.next<>nil do
           begin
            write(f,a^.inf);
              a:=a^.next;
               
            end;
     close(f);
     end;

Как-то так, ...