Разбить текст на строки, используя ф-ции над строками Опции

[murphy]

Момогите.
Задача такая:
Разбить текст на строки не более 20 символов, перенос осуществлять на месте пробела

З.Ы. Текст массив строк
Это не для меня (меня попросили)

[volvo]

murphy
Результат вернуть в каком виде? Тоже массив строк? Или достаточно вывести на экран?

[murphy]

как я понял достаточно вывести на экран
но надо использовать ф-ции над сроками из модуля system

Сообщение отредактировано: murphy - 3.01.2005 21:20

[volvo]

Что-то типа вот этого:

Код

const
 n = 3;
 txt: array[1 .. n] of string =
   ('start start start finish start finish start finish start finish start',
    'start start start finish start finish start finish start finish start',
    'start start start finish start finish start finish3 start3 finish4 start4');

var
 s: string;
 i, curr, prev: integer;
begin
 s := '';
 for i := 1 to n do
   begin
     curr := 1;
     s := s + txt[i];
     while true do
       begin
         prev := curr;
         curr := prev + pos(#32, copy(s, curr, 255));
         if curr = prev then break
         else
           if curr > 20 then
             begin
               curr := prev;
               writeln(copy(s, 1, pred(curr)));
               delete(s, 1, pred(curr)); curr := 1
             end
       end;
     s := s + ' '
   end;
 writeln(s)
end.