попытка разыменовать нулевой элемент

[Despot777]

Создать однонаправленный список действительных чисел, который может вместить как положительные, так и отрицательные числа. Найти произведение и подсчитать количество отрицательных элементов списка. Удалить из списка все отрицательные элементы и вывести обновленный список. Удалить список.
Ошибка: попытка разыменовать нулевой элемент. Программа должна находить произведение отрицательных элементов и количество их. Не пойму где ошибка.

program sp;
uses CRT;
type
n=^uzel;
uzel=record
          x:real;
          next:n;
     end;
var
ukf, uku, ukn:n;
i, dob:real;
c:char;
k:integer;
begin
 clrscr;
 new(ukf);
//Vvod
 writeln('Enter element');  readln( ukf^.x);
 ukf^.next:=nil;
 writeln('Do you want to continue? y\n');
            readln(c);
            uku:=ukf;
            while c='y' do
            begin
            	new(uku^.next);
              uku:=uku^.next;
              writeln('Enter element: ');
              readln(uku^.x);
              uku^.next:=nil;
              writeln('Do you want to continue? y\n');
              readln(c);
            end;
//Poisk, otr i dob
  dob:=1;
  k:=0;
  {esli vvesti polojitelnij - zatsiklivaetsya vse}
  uku:=ukf;
while  uku<>nil  do
	begin
    		if  uku^.x<0 then
            begin
            dob:=dob*uku^.x;
		        k:=k+1;
		        uku:=uku^.next;
            writeln('otr1');
            end;
    writeln('otr2');
	end;
//vivod  rezult
	if k=0 then writeln('No negative')
	else writeln('Multiplication negative elements =', dob:10:2, ' ,number of negative elements= ', k);
//Udalenie otr el s nachala
while (ukf^.x<0)and(ukf<>nil) do
	begin  uku:=ukf;
         ukf:=uku^.next;
         dispose(uku);
  end;
 //udalenie otr iz seredini
 uku:=ukf;
while (uku<>nil) do
   begin
      if (uku^.x<0) then
                        begin  ukn:=uku^.next;
                        uku^.next:=ukn^.next;
                        dispose(ukn);
                 end
      else   uku:=uku^.next;
   end;
   //vivod spiska
writeln('New list:');
 if ukf=nil then writeln('The list is empty!')
 else
     begin uku:=ukf;
           while uku<>nil do
            begin writeln(uku^.x:8:2);
                  uku:=uku^.next;
            end;
     end;
//Udalenie vsego spiska
while  ukf<>nil  do
begin  uku:=ukf;
       ukf:=uku^.next;
       dispose(uku)
end;
readln;
end.