не могу решать

[alexandrovna]

Тема: Динамические структуры данных. Линейные списки.
Дан список А, состоящий из записей: первое поле – вещественное число, второе – адрес следующего элемента. Составить программу, которая удаляет из списка все отрицательные элементы.

[Poma][a]

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.

Ну почему не поискать?

[alexandrovna]

чего она такая длинная?

[BDA]

Сообщение от alexandrovna

чего она такая длинная?

Да уж. Ни спасибо, ни пожалуйста.
Вам предоставили практически готовую программу.
Осталось разобраться и чуток изменить ее.
Да и небольшая она совсем (конечно по сравнению с "Hello, world!" просто огромна ).