Составить программу, которая удаляет из списка все отрицательные элементы

uses crt;
type
Link = ^Number;
Number = record
ID: integer;
Cislo : real;
NextRec: Link;
end;
var i, c, j,k,l: integer;
a: real;
Last, First, Curr, spisok, tmp ,buf: Link;
procedure Add(var spis1:Link ;znach1: real);
var
tmp:Link;
begin
if spis1=nil then {Проверяем не пуст ли список, если пуст, то }
begin
GetMem(spis1,sizeof(number)); {создаём его первый элемент}
tmp:=spis1;
end
else {в случае если список не пуст}
begin
tmp:=spis1;
while tmp^.nextrec<>nil do
tmp:=tmp^.nextrec; {ставим tmp на последний элемент списка}
GetMem(tmp^.nextrec,sizeof(number)); {создаём следующий элемент}
tmp:=tmp^.nextrec; {переносим tmp на новый элемент}
end;
tmp^.nextrec:=nil; {зануляем указатель}
tmp^.cislo:=znach1; {заносим значение}
end;
procedure ShowList(first: link);
begin
Writeln('Список элементов:');
if first=nil then writeln('В списке нет отрицательных элементов')
else
begin
while first<>nil do
begin
writeln(first^.cislo);
first:=first^.nextrec;
end;
end;
end;
Procedure Del(var first:link; y:real);
Var z,x,dx:link;
Begin
z:=first;
While z<>Nil do
if z^.cislo<y then
if z=first then
begin
x:=first;
first:=first^.nextrec;
Dispose(x);
z:=first
end
else
begin
x:=z;
z:=z^.nextrec;
dx^.nextrec:=z;
Dispose(x);
end
else
begin
dx:=z;
z:=z^.nextrec
end;
End;
begin
Writeln('Укажите длину списка: ');
Readln(c);
first:=nil;
Writeln('Введите элементы:');
for i:= 1 to c do
begin
read(a);
add(first,a);
end;
j:=0;
Del (first, j);
ShowList(first);
readln;
end.