Часть кода сделал. Односвязный список без заглавного звена. Динамическая память. Перевернуть список и считать в обратном порядке.

[Varner]

Сделал до той части где просо выводит числа А именно до слово else закомментированного так если числа идут последовательно по возрастанию в смысле если там ввести 1,2,3,4,5 то он их проверяет и выводит их на экран .Теперь я не могу поставить условие чтобы когда например ввести числа не по возрастанию например 1,3,2,4,5 то он должен их проверять и повернуть список и вывести уже в обратном порядке 5,4,2,3,1
да и должен быть односвязный список без заглавного звена. ??

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  Type
   PSll=^TSll;
   TSll= record
      inf: Real;
      Next: PSll;
   end;
  var
   A,A1, Ol: PSll;
   I, N : Integer;
   B: Boolean;


begin
   Write('N=');
   ReadLn(N);
   New(A);
   Write('A1=');
   ReadLn(A^.inf);
   A^.Next:=nil;
   Ol:=A;
   for I:=2 to N do
     begin
       New(A1);
       Write('A',I,'=');
       ReadLn(A1^.Inf);
       Ol^.Next:=A1;
       Ol:=A1;
    end;
    ol^.Next:=nil;
    A1:=A;
    B:=True;
    while A1.Next<>nil do
      begin
        if A1^.Next.inf<A1^.inf then
          B:=False;
        A1:=A1^.Next;
      end;
    A1:=A;
    if B then
      for I:=1 to N do
        begin
          Write(A1^.inf:0:1,' ');
          A1:=A1^.Next;
        end;
  //else

   Readln
end.

[Serge_Bliznykov]

Вы можете написать условия вашей задачи полностью так, как они Вам даны?
без отсебятины?

иначе получается какая-то мешанина из слов, мыслей, предложений...

если я введу 10 5 1 47 99
что должна сделать программа?

[Varner]

она должна написать 99 47 1 5 10
То есть в обратном порядке

[Varner]

Исходные данные: n=10;
A={-2,6;-8,7;9;-7,5;-4,9;7,6;8,1;-9,5;-8,8;4,9}
Ожидаемый результат:
A={4,9;-8,8;-9,5;8,1;7,6;-4,9;-7,5;9;-8,7;-2,6}

[Serge_Bliznykov]

тут важный вопрос - нужно ИЗМЕНИТЬ (переписать) список в обратном порядке,
или достаточно ВЫВЕСТИ на экран в обратном порядке?

если второе, то из этой темы Паскаль: переписать строковый список в обратном порядке

код (через рекурсию):

procedure ReverseOutput(vk : PSll);
begin
  if (vk=nil) then exit;
  ReverseOutput(vk^.next);
  writeln(vk^.inf);
end;

[Varner]

Нужно её переписать .а потом вывести