Разложение нескольких чисел на простые, На входе дано несколько чисел. Каждое число разложите на простые. Опции

[Kolyancz]

На входе дано несколько чисел. Каждое число разложите на простые.
Каждое разложение должно быть записано в отдельной строчке. Если число состоит из нескольких простых, то простые должны быть разделены пробелом.
Все числа положительные и меньше 2^31.

Пример:
6
15
23
128

Выдача:
2 3
3 5
23
2 2 2 2 2 2 2

[Kolyancz]

Вопрос в написать программу.
Я воспользовался уже имеющимися решениями. Вот что полоучилось:

procedure Factorization(x: word);
var i: word;
procedure DivX;
begin
while (x>1)
and (x
mod i = 0)
do
begin
write(i:4);		   x:= x
div i;
end;
end;
begin	 i:=2;	 DivX;	 i:=3;
while (i < x
div 2)
do
begin		   DivX;		   inc(i,2);
end;
if x>1
then   writeln(x:15);
end;

var x,a,b,c,d,e :word;

begin
readln (a);
readln (b);
readln ©;
readln (d);
x:=a;
Factorization(x);
x:=b;
Factorization(x);
x:=c;
Factorization(x);
x:=d;
Factorization(x);
readln;
readln;
end.

Эта прога решает приведенный выше пример, но есть баги: например если первое число 9, а второе 15, то ответ - разложение первого и второго числа она выводит на одной строчке, а должна на разних.
Не могу решить, самого важного: кол-во чисел неопределено и разложение должно работать для чисел до 2 в 31-ой.