Дано натуральное число. Найти число, получаемое удалением из исходного всех цифр а — Pascal(Паскаль)

uses crt;
var n,m,k:longint;
    a,c:0..9;
begin
clrscr;
write('Число=');
readln(n);
repeat
write('Цифра=');
readln(a);
until a in [0..9];
m:=0;k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if c<>a then
   begin
    m:=m+c*k;
    k:=k*10;
   end;
  n:=n div 10;
 end;
write('Число без цифр ',a,'=',m);
readln
end.