задано натуральное четырехзначное число . В нем заменили все цифры , большие 5,на 1.Найти полученное число

program p13;const n=4;var s:string;i:integer;beginwriteln('wwedite stroku');readln(s);for i:=1 to length(s) doif s[i]>'5' then s[i]:='1';writeln('s=',s);readln;end.  

var x,a,c,t:integer;beginreadln(x);c:=0;t:=1;while x<>0 do begina:=x mod 10;if a > 5 thena:=1;c:=a*t+c;t:=t*10;x:=x div 10; end;write(c);readlnend.