Из введенного из клавиатуры числа вычеркнуть цифру 3 — Pascal(Паскаль)

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 c<>3 then//если цифра не 3
   begin
    m:=m+c*k;//умножаем на очередную степень 10 и прибавляем
    k:=k*10;//увеличиваем степень
   end;
  n:=n div 10;
 end;
write(m);
readln;
end.