Определить и вывести на экран по отдельности цифры целого числа n

var
i,num:integer;
num_s:string;
begin
write('vvedite celoe chislo: ');
read(num);
num_s:=IntToStr(num);
for i:=1 to num_s.length do
write(' ',num_s[i]);
end.