Двунаправленный список, найти максимальный элемент в диапазоне

//Uses crt;
Const m=255;
type
  elementtype = record
  mo:string[15];
  pa:real;
  ob:integer;
 
   end;
   
  position = ^celltype; {указатель на тип элемента}
 
  celltype = record
  element: elementtype;
  next, previous: position;
  end;
  
  duble_LIST = ^celltype;
 
var
  L: duble_LIST;    {указатель на первый элемент списка}
  p: position; {указатель на текущий элемент}
  f1:text;
  i:integer;
  u:elementtype;
  
  //вставка элементов
  procedure Ins_CicleDubleList(x: elementtype; var L: duble_LIST; var p: position);
var
  q: position;   {вспомогательный указатель}
begin
New(q);
  q^.element := x;
    if L = nil then 
    begin   {список пуст}
      {создаем первый элемент списка}
      q^.next := q;  {петля из 1 элемента}
      q^.previous := q;
      L := q;
    end 
    else 
      begin   {список не пуст}
        q^.next := p^.next;
        p^.next := q;
        q^.previous := p;
        q^.next^.previous := q;
      end;
  p := q;
end;
 
//Просмотр списка однонаправленного кольцевого
procedure Scan(L: duble_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: duble_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
 
      max1 := q^.element.pa;
 
p := q;
q := q^.next;
end;
until q^.next = L;
end;
 
 
 
 
begin
l:=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_CicleDubleList(u,p,l);
    end;
    
   
    scan(l);
    
   
    max(l,p);
    writeln(p^.element.mo:8, p^.element.pa:14, p^.element.ob:5);
    
    
    scan(l);
    close(f1);
    end.