Замена цифры в числе

function Rep6to5(x: LongWord; var replace: LongWord): LongWord;
var
    s: String;
    code: Word;
begin
    Str(x, s);
    while (Pos('6', s) > 0) do
    begin
        Inc(replace);
        s[Pos('6', s)] := '5';
    end;
    Val(s, x, code);
    Rep6to5 := x div 2;
end;
 
var
    x, replace: LongWord;
begin
    repeat
        Write('Введите число (6..2*10^9 - 1): ');
        ReadLn(x);
    until ((x > 5) And (x < 2000000000));
    replace := 0;
    x := x div 2;
    replace := 0;
    while (x >= 5) do
        x := Rep6to5(x, replace);
    WriteLn('Количество замен: ', replace);
end.

var a:longint;k:integer;
function zam(x:longint;var kz:integer):longint;
begin
  if x>0 then
          if x mod 10 = 6 then begin inc(kz); zam:=10*zam(x div 10,kz)+5 end
                          else zam:=10*zam(x div 10,kz)+(x mod 10)
         else zam:=0                 
end;
begin
 write('a = ');readln(a);k:=0;
 while a>=5 do a:=zam(a div 2,k);
 writeln('количество замен: ',k)
end.