Строки, перенос Опции

[jmih]

Народ .Есть такая задачка.

Строка представляет собой фамилию, имя и отчество. Слова разделены пробелами (одним или несколькими). Преобразовать исходную строку в три строки и удалить лишние пробелы.

Как удалить пробелы я знаю.

program DeleteSpaces;
uses crt; {блябляблядальшехзчёписать}
var
str : string; {рабочая строка}
{параметры цикла и количество пробелов в группе}
index, i, spacenum : integer;

begin
{назначение программы}
{ввод исходной строки}
write('Введите исходную строку: ');
readln(str);
{защита от дурака}
while length(str)=0 do begin
writeln('Работа с пустой строкой невозможна. Повторите ввод: ');
readln(str);
end;
{вывод исходных данных}
writeln('Вы ввели строку: ', str);
{сам расчет}
index:=1;
while index< length(str) do begin
if str[index]=' ' then begin
spacenum := 1;
i:=index+1;
while str[i]=' ' do begin
spacenum:=spacenum+1;
i:=i+1;
end;
delete(str,index+1,spacenum-1);
end;
index:=index+1;
end;
{вывод результата}
writeln('Строка-результат: ', str);
{для просмотра результатов}
writeln('Нажмите любую клавишу'); ReadKey;
end.

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

ап