Списки. Перевернуть список

type 
Link = ^Number; 
Number = record 
ID: integer; 
Cislo : real; 
NextRec: Link; 
end; 
var i, c,k,l,v,nnn: integer; 
a,j: real; 
Last, First, Curr, spisok, tmp ,buf: Link; 
 
procedure Add(var spis1:Link ;znach1: real); 
var 
tmp:Link; 
begin 
if spis1=nil then {Проверяем не пуст ли список, если пуст, то } 
begin 
new(spis1); {создаём его первый элемент} 
tmp:=spis1; 
end 
else {в случае если список не пуст} 
begin 
tmp:=spis1; 
while tmp^.nextrec<>nil do 
tmp:=tmp^.nextrec; {ставим tmp на последний элемент списка} 
new(tmp^.nextrec); {создаём следующий элемент} 
tmp:=tmp^.nextrec; {переносим tmp на новый элемент} 
end; 
tmp^.nextrec:=nil; {зануляем указатель} 
tmp^.cislo:=znach1; {заносим значение} 
end; 
 
procedure ShowList(first: link); 
begin 
Writeln('Список элементов:'); 
if first=nil then writeln('В списке нет элементов') 
else 
begin 
while first<>nil do 
begin 
writeln(first^.cislo); 
first:=first^.nextrec; 
end; 
end; 
end; 
 
Procedure Del(var first:link; y:real); 
Var z,x,dx:link; 
Begin 
z:=first; 
While z<>Nil do 
if z^.cislo=y then 
if z=first then 
begin 
x:=first; 
first:=first^.nextrec; 
Dispose(x); 
z:=first 
end 
else 
begin 
x:=z; 
z:=z^.nextrec; 
dx^.nextrec:=z; 
Dispose(x); 
end 
else 
begin 
dx:=z; 
z:=z^.nextrec 
end; 
End; 
 
Procedure proverka(var first:link; y:real); 
Var z,x,dx:link; 
Begin 
z:=first; 
While z<>Nil do 
if z^.cislo=y then 
begin
writeln('Такой элемент есть');
x:=first; 
first:=first^.nextrec; 
z:=nil
end 
else 
begin 
x:=first; 
z:=z^.nextrec;
z:=nil;
writeln('Такого элемента нет');  
end;  
end;
 
Procedure Del_1(var first:link; y:real); 
Var z,x,dx:link; 
Begin 
z:=first; 
While z<>Nil do 
if z^.cislo<0 then 
if z=first then 
begin 
x:=first; 
first:=first^.nextrec; 
Dispose(x); 
z:=first 
end 
else 
begin 
x:=z; 
z:=z^.nextrec; 
dx^.nextrec:=z; 
Dispose(x); 
end 
else 
begin 
dx:=z; 
z:=z^.nextrec 
end; 
End;
 
Procedure perenos(var first:link); 
Var z:link; 
Begin 
if (first<>nil) and (first^.nextrec<>nil) then
begin
  z:=first^.nextrec;
  while z^.nextrec<>nil do z:=z^.nextrec;
  z^.nextrec:=first;
  first:=first^.nextrec;
  z^.nextrec^.nextrec:=nil;
  end;
end;
 
 
 
 
begin 
Writeln('Укажите длину списка: '); 
Readln(c); 
first:=nil; 
Writeln('Введите элементы:'); 
for i:= 1 to c do 
begin 
read(a); 
add(first,a); 
end;
Writeln('1)Удалить элементы ');
Writeln('2)Проверить, если ли одинаковые элементы');
Writeln('3)Удалить все отрицательные элементы');
Writeln('4)Перенести в конец 1 элемент');
Writeln('5)Перевернуть список');
Writeln('6)Оставить один из повторяющихся элементов');
Writeln('7)Вставить новый элемент за каждым вхождением элемента');
Writeln('8)Выход.');
Writeln('9)Посмотреть список');
 
readln(v); 
case v of
      1:begin
          write('Что удалить: ');
          readln(j); 
          Del (first, j); 
          ShowList(first);
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end;
      2:begin
          write('Проверить данный элемент: ');
          readln(j);
          proverka(first, j); 
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end; 
      3:begin
          write('Без отрицательных чисел: ');
          Del_1 (first, j); 
          ShowList(first);
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end;
      4:begin
          write('Первый элемент перешел ');
          perenos(first);
          ShowList(first);
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end;
      5:begin
          end;
      6:begin
          end;
      7:begin
          end;
      8:begin
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end;
      9:begin
          ShowList(first);
          writeln('<<<PRESS ENTER>>'); 
          readln;
          end;
end;
end.

Writeln('1)Удалить элементы ');

Writeln('2)Проверить, если ли одинаковые элементы');

type
  tList = class
    N : Real;
    X : tList;
    
    constructor (N : Real);
    begin
      Self.N := N;
      Self.X := nil;
    end;
    
    function Contains(N : Real) : Boolean;
    begin
      var Cur := Self;
      Result := Self.N = N;
      if Not Result And (X <> nil) then
        Result := X.Contains(N);
    end;
    
  end;
  
procedure Add(var List : tList; N : Real); 
begin 
  if List = nil then
    List := New tList(N)
  else
    begin
      var Cur := List;
      while Cur.x <> nil do Cur := Cur.x;
      Cur.x := New tList(N);
    end;
end; 
 
function CreateList : tList;
begin
  Result := nil;
  var count := ReadLnInteger('Укажите длину списка:'); 
  WriteLn('Введите элементы:'); 
  loop count do Add(Result, ReadReal);
end;
 
procedure ShowList(List : tList);
begin
  PrintLn;
  'Список элементов:'.Print;
  if List = nil then
    'пуст.'.Print
  else
    repeat
      List.N.Print;
      List := List.x;
    until List = nil;
  PrintLn;
end; 
 
procedure действие1(var List : tList);
begin
  if List = nil then
    'Список пуст.'.Println
  else
    begin
      var d := ReadLnReal('Что удалять:');
      if List.Contains(d) then
        'Список не содержит {d}'.Println
      else
        begin
          var count := 0;
          while (List <> nil) and (List.N = d) do begin List := List.X; count += 1; end; // удаление из головы
          var Cur := List;
          while (Cur <> nil) and (Cur.X <> nil) do
            if Cur.X.N = d then
              begin Cur.X := Cur.X.X; count += 1; end // удаление из середины и конца
            else
              Cur := Cur.X;
          $'Удалено элементов {count}'.Println;
        end;
    end;
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие2(List : tList);
begin
  var Cur := List;
  var TmpList : tList := nil;
  while Cur <> nil do
    begin
      if (Cur.X <> nil) and Cur.X.Contains(Cur.N) then
        begin
          if TmpList = nil then
            'Повторяющиеся:'.Print;
          if (TmpList = nil) Or Not TmpList.Contains(Cur.N) then
            begin
              Cur.N.Print;
              Add(TmpList, Cur.N);
            end;
        end;
      Cur := Cur.X;
    end;
  if TmpList = nil then
    'Повторяющихся нет!'.Print;
  PrintLn;
  
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие3(var List : tList);
begin
  var count := 0;
  while (List <> nil) and (List.N < 0) do
    begin List := List.X; count += 1; end;
  var Cur := List;
  while (Cur <> nil) and (Cur.X <> nil) do
    if Cur.X.N < 0 then
      begin Cur.X := Cur.X.X; count += 1; end
    else
      Cur := Cur.X;
 
  if count = 0 then
    'Не найдено отрицательных!'.Println
  else
    $'Удалено отрицательных элементов {count}'.Println;
 
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие4(var List : tList);
begin
  if List = nil then
    'Список пуст.'.Println
  else if List.X = nil then
    'Список из одного элемента.'.Println
  else
    begin
      var Tmp := List;
      List := List.X;
      var Last := List;
      while Last.X <> nil do
        Last := Last.X;
      Last.X := Tmp;
      Tmp.X := nil;
      'Первый элемент перемещён в конец списка.'.Println;
    end;
 
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие5(var List : tList);
begin
  if List = nil then
    'Список пуст.'.Println
  else if List.X = nil then
    'Список из одного элемента.'.Println
  else
    begin
      var Head : tList := nil;
      repeat
        var Tmp := List;
        List := List.X;
        Tmp.X := Head;
        Head := Tmp;
      until List = nil;
      List := Head;
      'Список инвертирован.'.Println;
    end;
 
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие6(var List : tList);
begin
  if List = nil then
    'Список пуст.'.Println
  else if List.X = nil then
    'Список из одного элемента.'.Println
  else
    begin
      var (Cur, count) := (List, 0);
      repeat
        if (Cur.X <> nil) and Cur.X.Contains(Cur.N) then // есть что удалять
          begin
            var Tmp := Cur;
            while Tmp.X.N <> Cur.N do // ищем повтор
              Tmp := Tmp.X;
            Tmp.X := Tmp.X.X; // удаляем
            count += 1;
          end
        else
          Cur := Cur.X;
      until Cur = nil;
      if count = 0 then
        'Повторений не найдено'.Println
      else
        $'Удалено повторений {count}'.Println;
    end;
 
  ReadLnString('Для продолжения жми Enter');
end;
 
procedure действие7(var List : tList);
begin
  if List = nil then
    'Список пуст.'.Println
  else
    begin
      var X := ReadLnReal('После чего делать встаку?');
      if Not List.Contains(X) Then
        $'Элементов со значением {X} нет!'.Println
      else
        begin
          var N := ReadLnReal('Что вставлять?');
          var (Cur, count) := (List, 0);
          repeat
            if Cur.N = X then // после него добаляем
              begin
                var Tail := Cur.X;
                Cur.X := New tList(N);
                Cur := Cur.X;
                Cur.X := Tail;
                count += 1;
              end;
            Cur := Cur.X;
          until Cur = nil;
          $'Добавлено элементов {count}'.Println;
        end;
    end;
 
  ReadLnString('Для продолжения жми Enter');
end;
 
function MainMenu : Integer;
begin
  WriteLn('~'*30);
  Writeln('1) Удалить элементы ');
  Writeln('2) Проверить, если ли одинаковые элементы');
  Writeln('3) Удалить все отрицательные элементы');
  Writeln('4) Перенести в конец первый элемент');
  Writeln('5) Перевернуть список');
  Writeln('6) Оставить один из повторяющихся элементов');
  Writeln('7) Вставить новый элемент за каждым вхождением элемента');
  Writeln('9) Выход');
  WriteLn('~'*30);
  Result := ReadLnInteger('Введите номер действия:');
  WriteLn;
end;
 
begin
  var List := CreateList;
  
  var v : Integer;
  repeat
    ShowList(List);
    v := MainMenu;
    case v of
      1 : действие1(List);
      2 : действие2(List);
      3 : действие3(List);
      4 : действие4(List);
      5 : действие5(List);
      6 : действие6(List);
      7 : действие7(List);
    end;
  until v=9;
  
end.

      if Not List.Contains(d) then
        $'Список не содержит {d}'.Println