Динамический список/удаления элементов из списка

Uses Crt;
Type TST=record
       ID_name: integer;
       name: string;
       kind: string;
       price: longint;
     end;
     TUK=^TSP;
     TSP=record
       inf: TST;
       adr: TUK;
     end;
Var
  f: text;
  head,temp,temp1: TUK;
begin
  clrscr;
  assign(f,'d:\spisok1.txt');
  reset(f);
  new(head);
  head^.adr:=nil;
  temp:=head;
  with temp^.inf do begin
     readln(f,ID_name);
     readln(f,name);
     readln(f,kind);
     readln(f,price);
  end;
  while not EOF(f) do
    begin
      new(temp^.adr);
      temp:=temp^.adr;
      temp^.adr:=nil;
      with temp^.inf do begin
        readln(f,ID_name);
        readln(f,name);
        readln(f,kind);
        readln(f,price);
      end;
    end;
  close(f);
  temp:=head;
{Вывод списка на экран}
  while temp<>nil do begin
    write(temp^.inf.ID_name,'  ',temp^.inf.name,'  ',temp^.inf.kind,'  ',temp^.inf.price);
    writeln;
    temp:=temp^.adr;
  end;
  readln;
  clrscr;
  temp:=head;
{Удаление элемента, в данном случае 1-ого}
         while temp<>nil do begin
           if temp^.adr^.inf.ID_name=1001 then begin
                temp1:=temp^.adr;
                temp^.adr:=temp1^.adr;
                dispose(temp1);
               end
           else temp:=temp^.adr;
         end;
{Вывод списка, после удаления элемента}
  temp:=head;
  while temp<>nil do begin
    write(temp^.inf.ID_name,'  ',temp^.inf.name,'  ',temp^.inf.kind,'  ',temp^.inf.price);
    writeln;
    temp:=temp^.adr;
  end;
  readln;
end.