Удалить из списка все элементы, содержащие цифру 0

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next:ptr;
          end;
var p,q,first,l:ptr;
    n,i,k:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
//Введим первый элемент от 100 до 999
new(p);
first:=p;
p^.next:=nil;
p^.key:=100+random(900);
q:=p;
//Введим остальные числа
for i:=2 to n do
 begin
  new(p);
  p^.key:=100+random(900);;
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
//выводим его на экран
writeln('Исходный список');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
//Удалякм элементы с 0
p:=first;
while p<>nil do
 begin
  k:=p^.key; //смотрим значение
  if (k div 100=0)or(k div 10 mod 10=0)or(k mod 10=0) then//если есть 0
   begin
    if p=first then  //если элемент первый
     begin
      first:=first^.next;
      dispose(p);
      p:=first;
     end
    else //если не первый
     begin
      q^.next:=p^.next;
      dispose(p);
      p:=q^.next;
     end
    end
   else //если нет нолей
    begin
     q:=p;
     p:=p^.next
    end
 end;
//выводим полученный список
writeln('Удаление элементов с нолями');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
end.