Вывод на экран записей в прямом и обратном порядке

[mileshin]

В файле хранятся порядковый номер, название товара и стоимость. Вывести на экран записи файла в прямом и обратном порядке (от первой к последней, затем от последней к первой).

В прямом порядке я вывел:

program zapisi;
uses crt;
var f : text;
    s : string;
BEGIN
     clrscr;
     assign(f,'D:\KursPascal\zapisi.txt');
     reset(f);
     while not eof(f) do
     begin
     readln(f, s);
     writeln(s);
     end;
     close(f);
     readln;
END.

1.jpg
А вот как вывести что бы в обратном порядке?

[Stilet]

А в обратном например создаешь линейный список, в который вгоняешь из файла все строки, потом проходя по нему выводишь на экран но проходишь с конца в начало
Вот например работа со списком:
http://www.programmersforum.ru/showthread.php?t=47462
Ну или в принципе поищи динамический двунаправленный список такое не раз обсуждалось

[Grag]

Вот тебе еще ссылочка на страничку моего сайта... http://igor-bachin.narod.ru/Pages/pfolio3.htm Там в разделе "Динамические структуры данных. Двусвязные линейные списки" можешь качнуть любую программу с исходниками и посмотреть как работать со списками... Создавать список, добавлять элемент в список, удалять из списка, проход по списку, ну и т.п.

[Serge_Bliznykov]

В файле хранятся порядковый номер, название товара и стоимость. Вывести на экран записи файла

очень сильно подозреваю, что в задании требовалось создать работу с ТИПИЗИРОВАННЫМ файлом!
А выдать записи типизированной файла проще всего используя позиционирование на нужную запись:

type 
    MyRec = record
      nomer : integer;
      Tovar  : string[50];
      Price   : extended;
    end;
var f : file of MyRec;
     r1  : MyRec;
     i, Cnt : integer;
begin 
   Assign(f,'MyFile.dat');
   Reset(f);
   Cnt := FileSize(f);
   for i:=Cnt downto 1 do  begin
      seek(f,i);
      Read(f, r1);
      WriteLn(r1.Nomer, r1.Tovar, r1.Price);
   end;   
   Close(f);
end.