Lab4_var6_z1

{Используйте линейные списки для хранения последователь-
ности чисел. Опишите процедуру или функцию, которая для
данного списка L создает список L1, содержащий те же эле-
менты, но в обратном порядке}  

Program lab4_var6_z1;

Type 
link=^node;
node=record num:integer; next:link end; // тип описывает запись состоящую из числа и указателя на запись
var S, //ссылка на очерeдное звено
    L,L1:link; //списки с исходной последовательностью и обратной
N // N-количество чисел
,i:byte; //счетчик
x:integer;//переменная для ввода чисел

procedure out_spisok(l : link); //процедура вывода списка на экран
begin
while l<> nil do
     begin
      s:=l^.next;
      write(l^.num,' ');
      l:=s;
     end;
writeln;
end;

//процедура формирования исходного списка путем добавления элемента в конец линейного списка
procedure add(var l:link;m:integer);
var t,p:link;
begin
  if l=nil then begin 
                  new(l); 
                  l^.num:=m;
                  l^.next:=nil;
                end
  else begin
        t:=l;
        while t^.next<>nil do t:=t^.next;
        new(p); 
        t^.next:=p; 
        p^.num:=m; 
        p^.next:=nil;
       end;
end;

//Процедура формирования обратного списка
procedure Rev(var S1,S2:link); 
begin
while S1<>nil do 
  begin
    new(S2);
    S2^.next:=S;
    S2^.num:=S1^.num;
    S:=S2;
    S1:=S1^.next;
  end;
end;

//процедура освобождения динамической памяти
procedure Clear(var L:link); 
begin
while L<> nil do 
begin
s:=L^.next;
dispose(L);
L:=s;
end;
end;

BEGIN
Repeat 
Writeln('Введите N(количество чисел) > 1 ');
Readln(N);
Until N>1;

//Создание списка
S:=nil;
For i:=1 to N do 
 begin
  Writeln('Введите ',i,'-e число:');
  readln(x);
  add(L,x);
  end;

writeln('Введенный список L:');
out_spisok(L);

Rev(L,L1);

writeln('Обратный список L1:');
out_spisok(L1);

//освобождаем динамическую память}
clear(L);
clear(L1);

END.