В заданном числе заменить все цифры 2 на 5 и разделить новое число на 5 — Pascal(Паскаль)

program tmp;
uses crt;
var
   st:string;
   i,x,x1,code:integer;
begin
clrscr;
readln(x);
str(x,st);
for i:=1 to length(st) do
if st[i]='2' then st[i]:='5';
val(st,x1,code);
write('rez= ',x1/5:3:1);
readkey;
end.