Перенести в новую строку только те слова, которые разделены одним пробелом. задача на паскаль

[SashaPRO]

14. Задан текст, состоящий из слов, которые разделены одним или несколькими пробелами. Сформируйте новый текст, включив в него слова заданного, разделенные только одним пробелом.

Причем,нужно сформировать текст((( использую массив строок((


Var stroka:string;
i:integer;
begin
write(' sss');
readln(Stroka);
i:=0;
while i<length(stroka) do
begin
inc(i);
if (Stroka[i]=' ') and (Stroka[i+1]=' ') and then
begin
delete(Stroka,i,1);
dec(i);
end;

end;
write('итог',stroka);
readln;

end.


вот,но препод сказал,чтобы именно сформировать текст((
типа a:array[1..10] of string;

[Alar]

"Перенести в новую строку только те слова, которые разделены одним пробелом"

Я мог закрывать ваши темы до тех пор, пока не увидел бы подобного названия, общие слова не интересны, важна суть.