Дано число p , написать программу которая убирает все нули из числа.Например 10101=111 — Pascal(Паскаль)

uses crt;
var p, b : integer;
begin
 clrscr;
 write('p = ');
 readln(p);
 b := 0;
 while (p <> 0) do
  begin
    if (p mod 10 <> 0) then
     b := b * 10 + (p mod 10);
     p := p div 10;
  end;
  while (b <> 0) do
   begin
    p := p * 10 + (b mod 10);
    b := b div 10;
   end;
 writeln('p = ',p);
 readln;
end.