Перенести слова из массива в строки

[Xardas]

Доброе время суток!!!
Столкнулся с алгоритмизационным вопросом по строкам. Вопрос, в принципе, не сложный, но вызывает некоторые трудности почему-то.

Суть:
Есть массив со словами (mas[1]='слово_1', mas[2]='слово_2', ..., mas[n]:='слово_n'. Нужно слова из этого массива перенести в строки определенной длины. Причем, если следующее слово из массива не "влезает" в строку, нужно перенести его в следующую строку и так далее. И в этих строках нужно расставить между словами по возможности одинаковое число пробелов, так чтобы последний символ последнего слова, попадал в "место" последнего символа строки, т.е. если у нас длина строки, например, 40, то 40-ой символ в этой строке должен быть последним символом последнего слова, по сути, нужно "раздвинуть" слова в строке...

Надеюсь, что объяснил понятно... Вопрос в следующем: как наиболее эффективным способом это осуществить?

[alexBlack]

Общая схема:

F := 1;                      // последнее использованное слово
L := length(mas[1]);    // Берем первое слово
for i:=1 to N do begin //проходим по массиву 
   if L + length(mas[i])+1 > LMax then begin
                              // Слово не помещается 
     flush(F, i-1);        // Сбрасываем все накопленные слова 
     F := i;                // Следующая строка начинается со слова i
     L := length(mas[i]);
   end else 
     inc(L, length(mas[i])+1)  
   end;
end;
// В конце массива сбрасываем оставшиеся слова 
flush(F, N);

// И отдельная процедура, которая будет помещать слова в строку
// добавляя между ними пробелы
procedure flush(N1, N2)
begin
    // Здесь формируем строку из слов N1-N2 массива
end;

[Xardas]

alexBlack, огромнейшее Вам спасибо!!! Все на самом деле действительно оказалось просто .