Помогите написать программу Pascal

var s:string; i:integer;
begin
readln(s); for i:=length(s) downto 1 do if s[i]='5' then insert(',',s,i); writeln(s)
end.

Почти как внизу, только со вводом восьмибайтных целых типа int64:
program ijklmn; var x:int64; k:integer; s:string; begin while true do begin write('x='); readln(x); str(x,s); for k:=1 to length(s) do if s[k]='5' then write(',',s[k]) else write(s[k]) end end.