Проблема с кольцевыми списками

[CAXATbIU]

Народ, мне срочно нужно решить задачку с кольцевыми списками. Помогите пожалуйста.
Вот условие: Во входном файле заданы целые числа. Читая данные с файла, построить список, отсортированный по возрастанию элементов. (односвязный циклический список)

[Alex Cones]

построить список, отсортированный по возрастанию элементов.

Список чего? Строк, цифр, букв, знаков? Ааа, увидел, сори.
Счас.

Var
 F:TextFile;
 S:String;
 I,J,PP:Integer;
 A:Array of Integer;
Begin
 I:=0;
 Assign(F,'file.txt');
 Reset(F);
 While Not(Eof(F) do
  Begin
   ReadLn(F,S);
   Inc(I);
  End;
 Reset(F);
 SetLength(A,I);
 For I:=0 to Length(A)-1 do
  Begin
    ReadLn(F,S);
    A[I]:=StrToInt(S);
  End;
 Close(F);
 For I:=0 to Length(A)-1 do
  For J:=0 to Length(A)-2 do
   If A[J]<A[J+1] Then
    Begin
     PP:=A[J];
     A[J]:=A[J+1];
     A[J+1]:=PP;
    End;
 For I:=0 to Length(A) do
  Writeln(A[I]);
 ReadLn;
End;

Кажись так, писал здесь, могут быть ошибки.

[CAXATbIU]

Сообщение от Alex Cones

Список чего? Строк, цифр, букв, знаков? Ааа, увидел, сори.
Счас.

Кажись так, писал здесь, могут быть ошибки.

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

[DomiNick]

односвязный циклический список

Это для института? А предмет случайно не "Базовые структуры и алгоритмы." зовётся?