Как сделать проверку на отсутствие значения?

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