Форматирование строки текста Опции

[Совсем новичок]

Здрасти. Не могу решить задачку (яп Паскаль) форматирования строки текста (до 80 символов) по ширине экрана, путем вставки пробелов между словами с использованием цикла while и функции insert. Помогите. Заранее благодарен.

[Lapp]

путем вставки пробелов между словами с использованием цикла while и функции insert.

Можно примерно так:

i:=1;
while Length(s)<80 do if (i>1) then begin
  if (s[i]=' ') and (s[i+1]<>' ') then Insert(' ',s,i);
  Dec(i)
end
else i:=Length(i)-1;

(не тестировано)

Но только учти, что должны быть выполнены некоторые условия:

1. изначальная строка начинается и заканчивается НЕ пробелами;
2. в изначальной строке есть хотя бы один пробел.

Если эти условия не выполнены, то следует определить, что значит форматирование строки с пробелами в начале и в конце, а также строки, состоящей из одного слова.

[Совсем новичок]

Спасибо! Премного благодарен.