сохранение изменений в списке

[nurmizmat]

для сохранения изменений в списке использую такую процедуру:

procedure save;
begin
  assign(f,namebase);
  rewrite(f);
  top :=kon^.link;
  while top <>nil do
     begin
          k :=top;
          top :=k^.link;
          write(f,k^);
     end;
     close(f);
end;

при этом список после каждого сохранения изменений "переворачивается": последний элемент становится первым, а первый последним.

как сделать, чтобы список сохранялся в том же порядке, в каком он находится в памяти?

[nurmizmat]

не могу разобраться

[p51x]

не могу разобраться

А мы думаете телепатически сможем?

 top :=kon^.link;

Как объвлен список, top? Кто такой kon?

k :=top;
top :=k^.link;

Зачем???

write(f,k^);

Если это традиционный список, то вы пишете в файл адресс, который очень легко может изменитя.... не говоря уже о том, что он точно изменится при перезапуске проги.

[nurmizmat]

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

А мы думаете телепатически сможем?

 top :=kon^.link;

Как объвлен список, top? Кто такой kon?

k :=top;
top :=k^.link;

Зачем???

write(f,k^);

Если это традиционный список, то вы пишете в файл адресс, который очень легко может изменитя.... не говоря уже о том, что он точно изменится при перезапуске проги.

объявление списка:

program Bookstore;
uses Crt;
type TP = ^Books;
     Books = record
       Name : string[50];
       Avtor : string[15];
       Kolvo : integer;
       Cena : string[10];
       Link : TP
     end;

var i : integer;
    top,k,kon,r : TP;
    BooksF : file of Books;
    BooksR : Books;
    dir : string;

основная программа:

begin
   ClrScr;
   write('Введите путь и имя файла с данными: ');
   readln(dir);
   top :=nil;
   Assign(BooksF,dir);
   Reset(BooksF);
   while not Eof(BooksF) do
   begin
   new(k);
   Read(BooksF,BooksR);
   k^.Name :=BooksR.Name;
   k^.Avtor :=BooksR.Avtor;
   k^.Kolvo :=BooksR.Kolvo;
   k^.Cena :=BooksR.Cena;
   k^.Link :=top;
   top :=k;
   end;
   new(k);
   k^.Name :='';
   k^.Avtor :='';
   k^.Kolvo :=0;
   k^.Cena :='';
   k^.Link :=top;
   kon :=k;
   top :=k;
   Close(BooksF);
   ClrScr;
   BooksMenu;
end.

{Процедура вывода списка книг на экран}
procedure WriteBooks(ctp: TP);
var lb: integer;
begin
  if ctp =nil then
  begin
       ClrScr;
       writeln('Список имеющихся книг:');
       top :=kon^.link;
       WriteCaption(0);
       lb :=0;
       while top <>nil do
       begin
            if lb <15 then
            begin
                 k :=top;
                 top :=k^.link;
                 write('|',k^.Name:25,'|');
                 write(k^.Avtor:15,'|');
                 write(k^.Kolvo:12,'|');
                 writeln(k^.Cena:12,'|');
                 lb :=lb+1;
            end
            else
            begin
                 WriteCaption(1);
                 write('Для дальнейшего просмотра списка книг нажмите любую клавишу...');
                 ReadKey;
                 ClrScr;
                 writeln('Список имеющихся книг:');
                 WriteCaption(0);
                 lb :=0;
            end;
       end;
       WriteCaption(1);
       write('Нажмите любую клавишу...');
       ReadKey;
  end
  else
  begin
       write('|',ctp^.Name:25,'|');
       write(ctp^.Avtor:15,'|');
       write(ctp^.Kolvo:12,'|');
       writeln(ctp^.Cena:12,'|');
  end;
end;

{Процедура добавления новой книги в базу}
procedure AddBooks;
begin
  ClrScr;
  writeln('Добавление книги:');
  writeln;
  top :=kon^.link;
  new(k);
  Write('Введите название книги:');
  readln(k^.Name);
  write('Введите автора:');
  readln(k^.Avtor);
  write('Введите количество книг:');
  readln(k^.Kolvo);
  write('Введите цену:');
  readln(k^.Cena);
  k^.link :=top;
  top :=k;
  kon^.link :=k;
  writeln;
  writeln('Книга успешно добавлена в базу!!!');
  writeln;
  write('Нажмите любую клавишу...');
  ReadKey;
end;

procedure save;
begin
  assign(f,namebase);
  rewrite(f);
  top :=kon^.link;
  while top <>nil do
     begin
          k :=top;
          top :=k^.link;
          write(f,k^);
     end;
     close(f);
end;

После добавления книги, новая запись появляется в начале списка. Сохраняем изменения. Выходим из программы. После запуска программы при просмотре список "переворачивается".
Как исправить?

[nurmizmat]

со списками проблема. подскажите в чем ошибка.