Дано натуральное число найти число получаемое удалением числа а.например дано число 12321342 а число а:=2 и должно получится 13134 — Pascal(Паскаль)

uses crt;
function Pow10(n:byte):longint;{функция возведения 10 в натуральную степень}
var i:byte;
    p:longint;
begin
p:=1;
for i:=1 to n do
p:=p*10;
Pow10:=p;
end;
var a,b:longint;{числа}
    c:0..9;{цифра}
    k,j:byte;{вспомогательные переменные}
begin
clrscr;
write('Chislo=');readln(a);
write('Cifra=');readln(c);
b:=0;j:=0;
while a>0 do{пока исходное число не ноль}
  begin
   k:=a mod 10;{отделяем последнюю цифру}
   if k<>c then{если она не равна заданной}
     begin
      j:=j+1;{увеличиваем счетчик степени}
      b:=b+k*Pow10(j-1);{прибавляем к новому числу}
     end;
   a:=a div 10;{берем число без последней цифры и все повторяем}
  end;
write('Rezultat=',b);
readln
end.