Однонаправленный кольцевой список

Uses crt;
Const m=255;
type
  elementtype = record
  mo:string[15];
  pa:real;
  ob:integer;
 
   end;
   
  position = ^celltype; {указатель на тип элемента}
 
  celltype = record
  element: elementtype;
  next: position;
  end;
  
  LIST = ^celltype;
  
 var
  L: LIST;    {указатель на первый элемент списка}
  p: position; {указатель на текущий элемент}
  f1:text;
  i:integer;
  u:elementtype;
  
  //вставка элементов
  procedure Ins_CicleSingleList(x: elementtype; Var L: LIST; var p:position);
var
  q: position;   {вспомогательный указатель}
begin
New(q);
  q^.element := x;
    if L = nil then 
      begin   {список пуст}
        q^.next := q;  {цикл из 1 элемента}
        L := q;
      end 
        else 
          begin   {список не пуст}
            q^.next := p^.next;
            p^.next := q;
          end;
    p := q;
end;
 
//Просмотр списка однонаправленного кольцевого
procedure Scan(L: LIST);
var
  q: position;   {вспомогательный указатель}
begin
  if L <> nil 
  then
  begin   {список не пуст}
    q := L;
    repeat
      writeln(q^.element.mo:8, q^.element.pa:14, q^.element.ob:5);   {Вывод значения элемента}
      q := q^.next;
    until q = L;
  end;
end;
 
//максимальный элемент
procedure Max(L: LIST; var p:position);
var
q: position;max1:real;
Begin
p:= L;
q:= L;
repeat
begin
if (q^.element.ob <= 1.8) and (q^.element.ob >= 1.4) and (q^.element.pa > max1) then begin
      max1 := q^.element.pa;
 
q := q^.next;
end;end;
until q^.next = L;
end;;
 
//Удаление элемента из кольцевого однонаправленного списка
procedure Delete(var L: LIST;  var p: position);
var
q: position;  {дополнительный указатель}
begin
  if p <> nil then 
    begin   {вх.параметр корректен}
      if L^.next <> L then 
        begin
          q := L;
          while q^.next <> p do
            q := q^.next;
            q^.next := p^.next;
               if L = p then     {удаляем первый}
               L := p^.next;
             dispose(p);
           p := q^.next;
         end 
          else 
            begin
              L:=nil;
                dispose(p);
                p:=nil;
            end;
    end;
end;  
 
 
  
  //поиск и удвление 
procedure poisk(i:integer; var L:LIST);
var q: position;
begin
q:=L;
  repeat
  begin
  if   (q^.element.ob <= 1.8) and (q^.element.ob >= 1.4) then
  delete(l,q)
      else
    q := q^.next;
end;
until q^.next = l;
if (q^.element.ob <= 1.8) and (q^.element.ob >= 1.4) then
  delete(l,q);
end;
  
  begin
  l:=nil;
  p:=nil;
  assign(f1,'laba1.2.txt');
  reset(f1);
while not eof(f1) do
    begin
    readln(f1,u.mo);
    readln(f1,u.pa);
    readln(f1,u.ob);
    
    Ins_CicleSingleList(u,p,l);
    end;
    
   
    scan(l);
    
    writeln;
  
    max(l,p);
   writeln(p^.element.mo,p^.element.pa,p^.element.ob);
    delete(l,p);
    scan(l);
    
    writeln;
   
    read(i);
    writeln;
    
    poisk(i,l);
    scan(l);
    close(f1);
    end.

const fName = 'laba1.2.txt';
 
type
  tRec = record
    mo : String[15];
    pa : Real;
    ob : Integer;
    
    constructor (mo, pa, ob : String);
    begin
      Self.mo := mo;
      Self.pa := StrToFloat(pa);
      Self.ob := StrToInt(ob);
    end;
  end;
 
type
  tList = class
    r : tRec;
    x : tList;
    
    constructor (r : tRec);
    begin
      Self.r := r;
      x := nil;
    end;
  end;
 
function ReadList : tList;
begin
  try
    Result := nil;
    var First : tList;
    var a := ReadAllLines(fName);
    for var i := 0 to a.Count div 3 - 1 do
      begin
        if Result = nil then
          begin
            Result := New tList(New tRec(a[i*3+0], a[i*3+1], a[i*3+2]));
            First := Result;
          end
        else
          begin
            Result.x := New tList(New tRec(a[i*3+0], a[i*3+1], a[i*3+2]));
            Result := Result.x;
          end;
      end;
    Result.x := First;
    Result := First;
  except
  end;
end;
 
procedure PrintList(L : tList);
begin
  var First := L;
  repeat
    Write(L.r);
    L := L.x;
  until L = First;
  WriteLn;
end;
 
function SearchCondition(L : tList) : tList;
begin
  Result := nil;
  var cur := L;
  // Найдём первый по условию
  repeat
    if (1.4 <= cur.r.pa) and (cur.r.pa <= 1.8) then Result := cur;
    cur := cur.x;
  until (Result <> nil) or (cur = L);
  if Result = nil then Exit; // Нет ни одного удовлетворяющего условию pa между 1.4 и 1.8
  // Дополнительное условие - максимальный по ob
  repeat
    if (1.4 <= cur.r.pa) and (cur.r.pa <= 1.8) and (cur.r.ob > Result.r.ob) then Result := cur;
    cur := cur.x;
  until cur = L;
end;
 
procedure Delete(var L : tList; var D : tList);
begin
  if D.x = D then // Это единственный элемент списка
    begin
      L := nil;
      D := nil;
      Exit;
    end;
    
  while L.x <> D do L := L.x;
  L.x := D.x;
  D := nil;
end;
 
begin
  var L := ReadList;
  if L = nil then
    begin
      WriteLn('Список не считан из файла!');
      Exit;
    end;
  WriteLn('Cчитан список:');
  PrintList(L);
 
  repeat  
    var m := SearchCondition(L);
    if m = nil then
      begin
        WriteLn(NewLine,'Нет удовлетворяющих условию!');
        Exit;
      end;
    WriteLn(NewLine,'Найденный по условию элемент: ', m.r);
    
    Delete(L, m);
    if L = nil then
      begin
        WriteLn(NewLine,'Список пуст!');
        Exit;
      end;
    WriteLn(NewLine,'Элемент удалён из списка:');
    PrintList(L);
  until False;
end.