Перевернуть список delphi 7

[GaLiof]

Задача: Дан список чисел. Перевернуть его, т.е. построить список из этих же чисел в обратнем порядке.
Срочно надо, экзамен горит... Помогите с написанием на delphi7

[Stilet]

список это что в смысле?
Динамический массив или именно список?

Потому как если это одно- или двунаправленный список то вот рекомендую:http://www.programmersforum.ru/showthread.php?t=87357

Измени только

  function outt:boolean;
 var i:integer;
 begin
   while CurItem<>nil do begin
     write(curitem^.data:5);
     CurItem:=CurItem^.Prev;
   end;
 end;

т.е. просто вывести на экран в обратном порядке.
Я думаю этого хватит