Паскаль 7 класс!!! Срочно !!!
В семизначном числе найти и вывести все цифры меньше 5

Var x:Integer ;

Begin

Writeln('x=') ;read(x) ;

While x>0 do begin

If x mod 10<5 then write(' ', x mod 10);

X :=x div 10;end;

End.