Дано число n как заменить в этом числе 0 на 1- Pascal(Паскаль)

uses crt;
var n,s,k:longint;
    i,c1,c2:integer;
begin
clrscr;
write('n='); readln(n);
s:=0;k:=1;
while n>0 do
 begin
  i:=n mod 10;
  if i=0 then i:=1;
  s:=s+i*k;
  n:=n div 10;
  k:=k*10;
end;
write('rezult = ',s);
readln
end.