Используя кольцевой односвязный список найти введённый с клавиатуры символ, удалить символ стоящий перед найденным за 1

type
  tList = class
    c : Char;
    x : tList;
    
    constructor;
    begin
      c := Chr(Random(ord('a'),ord('z'))); x := nil;
    end;
    
    constructor (ch : Char);
    begin
      c := ch; x := nil;
    end;
 
    procedure Print;
    begin
      Write(c);
      var tmp := Self;
      repeat
        tmp := tmp.x; if tmp <> Self then Write(' ', tmp.c);
      until tmp = Self;
      Writeln;
    end;
    
    function Find(fnd : Char) : tList;
    begin
      Result := nil;
      var tmp := Self;
      if tmp.c = fnd then Result := Self
      else
        while tmp.x <> Self do
          begin
            tmp := tmp.x; if tmp.c = fnd then begin Result := tmp; Exit; end;
          end;
    end;
    
    function DeletePred : Boolean;
    begin
      Result := False;
      if Self.x = Self then Exit;
      var tmp := Self; while tmp.x.x <> Self do tmp := tmp.x;
      tmp.x := tmp.x.x; Result := True;
    end;
    
    procedure Insert(ins : Char);
    begin
      var newElement := New tList(ins); newElement.x := Self;
      if Self.x = Self then Self.x:=newElement
      else
        begin
          var tmp := Self; while tmp.x <> Self do tmp := tmp.x;
          tmp.x := newElement;
        end;
    end;
  end;
 
begin
  Randomize;
  var List := New tList;
  var Tmp := List;
  for var i := 2 to 20 do begin Tmp.x := New tList; Tmp := Tmp.x; end;
  Tmp.x := List;
  WriteLn('Создан список: '); List.Print;
  List := List.Find(ReadLnChar('Найти символ:'));
  if List = nil then begin WriteLn('Введённый символ не найден!'); Halt; end;
  WriteLn('Символ найден: '); List.Print;
  if List.DeletePred then WriteLn('Удалён за 1 до: '); List.Print;
  List.Insert(ReadLnChar('Символ для вставки:'));
  WriteLn('Символ вставлен: '); List.Print;
end.