Задание в Delphi

var k, i, j, x: integer;
    s: string;
begin
s:=Edit1.Text; //Исходная строка
k:=StrToInt(Edit2.Text); //По сколько разбивать
ListBox1.Clear;
 
//Заменим двойные пробелы в строке - одинарными
  While Pos('  ',s)<>0 Do s:=StringReplace(s,'  ',' ',[rfReplaceAll]);
 
  x:=1;
  j:=0;
  Repeat
      If s[x]=' ' Then
      Begin
      Inc(x); //Если первый символ новой строки пробел - пропускаем
      If x>Length(s) Then Break; //За пределами строки
      End;
 
      Repeat
        i:=j-1;
        j:=PosEx(' ',s,j+1);
      Until (j=0) Or ((j-x+1-1)>k);
 
      If j=0 Then j:=Length(s); //Если последний раз пробела не найдено - до конца строки
 
      If s[j]=' ' Then Dec(j); //Последний символ пробел - не берём
 
      If ((i>x) And ((j-x+1)>k)) Then j:=i; //Ранее пробелы находились - возвр. на пред найденную позицию
 
      If (j-x+1)>k Then
      ShowMessage('Слишком длинное слово. Не могу форматировать по '+IntToStr(k)+#13+
      Copy(s,x,j-x+1));
   
      ListBox1.Items.Add(Copy(s,x,j-x+1));
      Inc(j); //Начальная позиция следующего поиска
      x:=j;   //Начальная позиция следующей строки
  Until (j>Length(s));
end;