Напишите программу, которая выводит на экран все цифры числа начиная с первой. (на Паскале)

Держи program numbers; uses crt; var k, z, i : integer; begin writeln ('Введите число'); read (k); z:=0; while k>0 do begin z:=z*10; z:=z + (k mod 10); k:=k div 10; end; while z>0 do begin i:=z mod 10; z:=z div 10; writeln (i, ' '); end; end.