вводится текст. определите если в нем цифры, если есть замените все цифры на букфу Ф

Program Text;

var

s:string;

k:set of byte;

i: byte;

begin

readln(s);

k:=[0,1,2,3,4,5,6,7,8,9];

for i:=1 to length(s) do

  if ord(s[i]) - 48 in k then

    s[i]:='Ф';

write(s);

end.