[FAZA]

Imikle спасибо! функция теперь работает.
помогите, не могу разобраться теперь с этой процедурой. проблема аналогична - после её выполнения список не выводится.

Код:

Procedure del_one_dig_num(top:p_list); //удаляет однозначные числа из последовательности
Procedure del(adr:p_list);
var z:p_list;
begin
  if adr<>top then begin
    z:=top;
    while z^.next<>adr do z:=z^.next;
  end;
  if adr=top then top:=top^.next
  else z^.next:=adr^.next;
  dispose(adr);
end;

var p:p_list;
begin
  p:=top^.next;
  del(p);
  while p^.next<>nil do begin
    if (p^.num < 10) and (p^.num > -10) then del(p);
    p:=p^.next;
  end;
end;