Имеются линейные однонаправленные списки

type
        p=^item;
        item=record
                  data:real;
                   reference:p
        end;

Const eps = 0.0000001;
 
Type
  p=^item;
  item=record
         data : real;
         ref  : p
       end;
 
Var
  L0,L,t,tt : p;
  i,j       : Byte;
 
Procedure AddItem(A : Real);
Begin
  If L0=nil then
  Begin
    New(L0);
    L0^.data:=A;
    L0^.ref:=nil;
  end
    else
    Begin
      L:=L0;
      While L^.ref<>nil do L:=L^.ref;
      New(t);
      t^.data:=A;
      t^.ref:=nil;
      L^.ref:=t;
    end;
end;
 
Procedure ShowL;
Begin
  L:=L0;
  If L<>nil then
    While L<>nil do
    Begin
      Writeln(L^.data);
      L:=L^.ref;
    end;
end;
 
Begin
  L0:=nil;
  For i:=1 to 3 do
    For j:=1 to 5 do AddItem(j);
  
  Writeln('Исходный список:');
  ShowL;
  Writeln;
  
  L:=L0;
  While L<>nil do
  Begin
    t:=L;
    tt:=L^.ref;
    While tt<>nil do
    Begin
      If abs(L^.data-tt^.data)-eps<=0 then
      Begin
        t^.ref:=tt^.ref;
        Dispose(tt);
        tt:=t^.ref;
      end
      else
        Begin
          t:=tt;
          tt:=tt^.ref;
        end;
    end;
    L:=L^.ref;
  end;
  
  Writeln('Отфильтрованный список:');
  ShowL;
  Writeln;
  
  While L0<>nil do
  Begin
    L:=L0^.ref;
    Dispose(L0);
    L0:=L;
  end;
end.