Разделить тест на строки

[Maxym_93]

Разделить текст на строки, длина которых не превышает 20 символов. Перенос на новую строку возможен лишь на месте пробела.

[Ermowkin]

Попробуй.

var
s:string;
i,j:integer;
a:array[1..100] of string;
begin
  j:=1;
  writeln('Введите текст');
  readln(S);
  For i:=1 to length(s) do
    if (s[i]=' ') and (length(a[j])>10) then inc(j) else  //Здесь проверяем наличие пробела и символов в строке чтоб было не меньше 10.
    a[j]:=a[j]+s[i];
  For i:=1 to j do
   writeln(a[i]);
end.

[Kristina_liba]

а можно тоже самое,только в С++ ?
заранее спасибо