Вывести на экран все цифры числа k. (блок-схема, решение самой ) надо

Var k: integer;
    a: string;
begin
     readln(k);
     a := inttostr(k);
     for k := 1 to length(a) do
         write(a[k] + ' ');
end.