Из натурального числа N удалить все цифры, равные заданной цифре А

var i,n,a,code: integer;
stroka, ch, res: string;
t : boolean;
begin
writeln('введите число');
readln(stroka);
writeln('введите цифру');
readln(ch);
res:= '';
i :=length(stroka);
for i:=1 to i do
  if ch<>stroka[i] then res:=res+stroka[i];
t:= true;
n:=0;
if res='' then writeln('-1')
else 
  while t=true do 
    if (res[1]='0') then begin
      a:=1;
      i:= length(res)-1;
      for i :=1 to i do a:=a*10;
      val(res,n,code);
      n:= n mod a;
      str (n, res);
      end
    else 
      t:= false;
 
writeln(res);
end.

var i,n,a,code: integer;
stroka, ch, res: string;
t : boolean;
  f:text;
begin
assign(f,'input.txt');
reset(f);
//writeln('введите число');
readln(f,stroka);
//writeln('введите цифру');
readln(f,ch);
close(f);
res:= '';
i :=length(stroka);
for i:=1 to i do
  if ch<>stroka[i] then res:=res+stroka[i];
t:= true;
n:=0;
if res='' then writeln('-1')
else 
  while t=true do 
    if (res[1]='0') then begin
      a:=1;
      i:= length(res)-1;
      for i :=1 to i do a:=a*10;
      val(res,n,code);
      n:= n mod a;
      str (n, res);
      end
    else 
      t:= false;
assign(f,'output.txt');
rewrite(f); 
writeln(f,res);
close(f);
end.

begin
  var n := ReadLnString;
  var a := ReadLnString;
  WriteLn(n.Replace(a, ''));
end.

begin
  Reset(input, 'input.txt'); Rewrite(output, 'output.txt');
  WriteLn(ReadLnString.Replace(ReadLnString, ''));
  Close(input); Close(output);
end.

var
  N, N2: integer;
  A: integer;
  L, L2: integer;
 
begin
  Readln(N, A);
  N2 := N;
  
  while N2 <> 0 do
  begin
    if N2 mod 10 <> A then Inc(L2);
    N2 := N2 div 10;
    Inc(L);
  end;
  Dec(L);Dec(L2);
  L := Round(Power(10, L));
  L2 := Round(Power(10, L2));
  
  while L > 0 do
  begin
    var k := N div L;
    if k <> A then
    begin
      N2 += L2 * k;
      L2 := L2 div 10;
    end;
    
    N := N mod L;
    L := L div 10;
  end;
  
  Writeln(N2);
end.

var 
  N, A : Integer;
  T, Pwr10 : Integer;
begin
  Readln(N, A);
  
  T := 0; Pwr10 := 1;
  while N > 0 do
  begin
    if N mod 10 <> A then
    begin
      T := T + Pwr10 * (N mod 10);
      Pwr10 := Pwr10 * 10;
    end;
    N := N div 10;
  end;
  
  if Pwr10 = 1 then T := -1;
  Writeln(T);
end.