Строка: Реализовать «выравнивание по ширине»...

type
  _ToWordBatchesHelper = class
    
    tl := 0;
    res := new List<string>;
    w: integer;
    
    constructor(w: integer) :=
    self.w := w;
    
    function makeRes: string;
    begin
      tl -= 1;
      
      var left := w-tl;
      var gap_c := res.Count-1;
      
      var m, d: integer;
      if gap_c<>0 then
      begin
        m := left mod gap_c;
        d := left div gap_c + 1;
      end;
      
      var sb := new StringBuilder;
      
      foreach var s in res do
      begin
        sb += s;
        
        if m>0 then
        begin
          sb.Append(' ', d+1);
          m -= 1;
        end else
        if sb.Length<w then
          sb.Append(' ', d);
        
      end;
      
      tl := 0;
      res.Clear;
      Result := sb.ToString;
    end;
    
    function addNext(s: string): sequence of string;
    begin
      
      if tl+s.Length > w then
      begin
        
        if tl=0 then
        begin
          while s.Length>w do
          begin
            yield s.Remove(w);
            s := s.Substring(w);
          end;
          yield sequence addNext(s);
        end else
        begin
          yield makeRes();
          yield sequence addNext(s);
        end;
        
      end else
      begin
        tl += s.Length+1;
        res += s;
      end;
      
    end;
    
  end;
 
function ToWordBatches(wds: sequence of string; w: integer): sequence of string;
begin
  var h := new _ToWordBatchesHelper(w);
  
  foreach var s in wds do
    yield sequence h.addNext(s);
  
  if h.tl<>0 then
    yield h.makeRes;
end;
 
function ToWordBatches(wds: string; w: integer) :=
ToWordBatches(wds.ToWords, w);
 
begin
  ToWordBatches(
    ReadlnString('Введите слова разделённые пробелом'),
    ReadlnInteger('Введите максимальное кол-во знаков в строке')
  ).PrintLines;
end.

begin
  var(s,v):=(ReadLnString,ReadLnInteger);
  if v<s.Length then begin WriteLn('Упс!');Halt;end;
  var (w,k):=(s.ToWords,v-s.Remove(' ').Length);
  var (t,u):=(k div(w.Length-1),k mod(w.Length-1));
  WriteLn(w.Select((word,i)->word+' '*(t+(i<u?1:0))).JoinIntoString(''));
end.