Линейные списки.

[Rediska512]

Создать список целых чисел. Вывести на экран все числа, которые больше заданного числа, и удалить их из списка.

Program spusku;
uses crt;
type
   spusok=^elem;
   elem=record
           data:integer;
           next:spusok;
           end;
var i:spusok;

procedure add(var current:spusok; elem:integer);
var x:spisok;
begin
   new(x);
   x^.data:=elem;
   x^.next:=nil;
   current^.next:=x;
   current:=x;
end;

procedure stvor(var i:spusok);
var p:spisok; n:integer;
begin
   i:=nil;
   writeln('Vvedite spusok celux 4usel. 0-konec');
   readln(n);
   add(i,n);
   readln(n);
   while n<>0 do
   begin
   p:=i;
      while p^.next<>nil do
      p:=p^.next;
      add(p,n);
      readln(n);
   end;
end;

procedure vuvod(var i:spusok);
var p:spusok; k:integer;
begin
   writeln('Vvedute 4uslo');
   readln(k);
   while i<>nil do
   begin
      p:=i;
      if p^.data>k then write(p^.data:3);
      i:=i^.next;
      dispose(p);
   end;
end;

BEGIN
clrscr;
stvor(i);
vuvod(i);
readkey;
end.

Надо добавить процедуру вывода списка из которого удалены числа больше k

подскажите как это сделать, а то я пробовал и не получилось,
менял процедуру vuvod:

   while i<>nil do
   begin
      p:=i;
      i:=i^.next;
      if p^.data>k then begin write(p^.data:3);
                                       dispose(p);
                               end;
   end;

и добавлял процедуру

procedure vuvod2(var i:spusok);
begin
   while i<>nil do
   begin
      write(i^.data:3);
      i:=i^.next;
   end;
end;

но в итоге после чисел больших k
выводилось просто число k и все,
подскажите кто знает что поменять.

[eoln]

Во-первых, разные имена spusok и spisok
Далее при добавлении идёт запись в поле current^.next, хотя объект по адресу current ещё не создан. При проходе по списку теряется голова. ИМХО, лучше делать через двусвязный список, но если хочется, то можно и со стеком побаловаться - в процедуре del идёт удаление из стека с сохранением "нужных" чисел. Правда в таком случае пришлось ввести дополнительную переменную для установления связи с предыдущим числом.

type
   spisok=^elem;
   elem=record
           data:integer;
           next:spisok;
           end;

procedure add(var head:spisok; elem:integer);
var x:spisok;
begin
   new(x);
   x^.data:=elem;
   x^.next:=head;
   head:=x;
end;

procedure del(var head:spisok);
var current,p,prev:spisok; k:integer;
begin
   current:=head;
   prev:=head;//для связи предыдущего и следуещего при удалении текущего
   writeln('Vvedute 4uslo');
   readln(k);
   while current<>nil do
   begin
      if current^.data>k then
      begin
        write(current^.data:3);
        if current=head then
          head:=head^.next
        else
          prev^.next := current^.next;
        p:=current;
        current:=current^.next;
        dispose(p);
        continue;
      end;
      prev:=current;
      current:=current^.next;
   end;
end;

procedure stvor(var head:spisok);
var p:spisok; n:integer;
begin
   head:=nil;
   writeln('Vvedite spusok celux 4usel. 0-konec');
   readln(n);
   while n<>0 do begin
     add(head,n);
     readln(n)
   end;
end;

procedure vuvod(i:spisok);
var p:spisok;
begin
  writeln;
  writeln('ostatok: ');
   while i<>nil do
   begin
      p:=i;
      write(p^.data:3);
      i:=i^.next;
      dispose(p);
   end;
end;

var
  head: spisok;
BEGIN
  stvor(head);
  del(head);
  vuvod(head);
  readln
end.