Пусть дано натуральное число n. Выбросите из записи этого числа цифры 3 и 7, оставив прежним порядок остальных цифр — Pascal(Паскаль)

Например, из числа 3171507377 
выходит 1150

uses crt;
var n,m:longint;
    c,k:integer;
begin
clrscr;
write('n=');
readln(n);
m:=0;k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if not(c in [3,7]) then
   begin
    m:=m+c*k;
    k:=k*10;
   end;
  n:=n div 10;
 end;
write('Без цифр 3 и 7 = ',m);
readln
end.