Вывод кольцевого списка в обратном порядке

[parinoff]

Всем привет
Подскажите как вывести кольцевой список в обратном порядке? Вот мой код процедуры вывода нет вообще не знаю как ее делать
Заранее благодарю!

program P1;
Uses Crt;
        type
            te=Integer;
            pe = ^el;
            el = Record
               inf:te;
               next:pe;
            End;
        Var
           saq:pe;
           menu: byte;
Procedure NewLos(var saq:pe);
var q:pe; a:te; i:te;
Begin
clrscr;
  New(saq);
  q:=saq;
  q^.next:=nil;
  writeln('Procedura Vvoda LOS.');
  writeln('Dlya vihoda vvedite 0 i nazmite Enter.');
  write('Vvedite 1-ii element LOS:');
  readln(a);
  i:=2;
  while a<>0 Do
    Begin
      write('Vvedite ',i,'-ii element LOS:');
      new(q^.next);
      q:=q^.next;
      q^.inf:=a;
      q^.next:=nil;
      readln(a);
      i:=i+1;
    end;
   q^.next:=saq^.next;
end;
Procedure ReversOutput(var saq:pe);
var q:pe;
Begin
clrscr;
  {-----Чего тут писать?------}
end;
Procedure Output(var saq:pe);
var q:pe;
Begin
clrscr;
  if saq = nil then
   begin
    writeln('Press any key for Exit');
    writeln('LOS Pustoi!!!');
    Repeat Until KeyPressed;
   end
  else
   begin
    q:=saq^.next;
    writeln('Vvedennii LOS');
    writeln('Press any key for Exit');
    Repeat
     While q<>saq Do
      Begin
       Write(q^.inf);
       write(' - ');
       q:=q^.next;
      end;
    Until KeyPressed;
   end;
end;

[Arigato]

Список обязательно нужен однонаправленный? Если сделать его двунаправленным, то обратный вывод будет по сути таким же, как и прямой.

[lexus_ilia]

так ему и нужен обязательно двунаправленный список, если конечно не добавить ещё один список в который вносить все данные с его списка в обратном порядке, но по-моему это глупо...

[Stepler]

Все довольно просто, ненужно никакого лишнего гемора с созданием двунаправленого списка или дополнительного списка.
Вот собственно решение, с помощю рекурсивной процедури делаем вывод.

procedure revo(vk:pe);
 begin
 if(vk=nil)then exit;
 revo(vk^.next);
 write(vk^.inf);
 end;

[Arigato]

А какой размер стека по умолчанию в Турбо Паскале? Кажется, 16Кб. Если список будет большим, может не хватить.

[Stepler]

А какой размер стека по умолчанию в Турбо Паскале? Кажется, 16Кб.

Совершенно верно по умолчанию 16 кб.

Если список будет большим, может не хватить.

Совершенно верно, но для данного случая стека хватит для списка длинной не меньше чем на 2000 елементов.
Но тем не менее рекурсия дает елегантное решение проблеми с выводом однонаправленого списка в обратном порядке