Подскажите, как решить задачу Опции

[Mickola]

Дана задача:

Дано натуральное число n. Получить символьное представление n в виде последовательности цифр и пробелов, отделяющих группы по три цифры, начиная справа. ( например, если n=1234567, то должно получиться 1 234 567).

Знаю как решить эту задачу без использования динамической памяти:

var N: Longint;
S: String;
D: Word;
I: Integer;
begin
ReadLn(N);
while N > 0 do begin
D := N mod 10;
N := N div 10;
S := Char(D+Ord('0')) + S;
I:=I+1;
if I = 3 then begin
S := ' ' + S;
I := 0;
end;
end;
WriteLn(S);
readln;
end.

Помогите пожалуйста решить эту задачу с использованием динамической памяти. Заранее благодарен.

1 поменя название темы
2 пользуйся тегами
klem4