Работа с текстовыми файлами, настройка длины строк

function RemoveSpaceFromString(const s : string): string;
var res : string;
  i : integer;
begin
  res := '';
  i := 1;
  while (i<=Length(s)) and (s[i]=' ') do Inc(i);
 
  if i<=Length(s) then res := res + s[i];
 
  for i:=i+1 to Length(s) do
     if (s[i]<>' ') or
          ((s[i]=' ') and (s[i-1]<>' ')) then res := res + s[i];
 
  {удалим пробелы в конце строки res}
  i:= Length(res);
  while (i>0) and (res[i]=' ') do Dec(i);
 
  RemoveSpaceFromString := Copy(res,1, i);
end;
 
var 
  t, fr : text;
  s, spred : string;
  i,N : integer;
begin
  Assign(t, 't2.txt');
  Reset(t);
  Assign(fr, 't2frmt.txt');
  Rewrite(fr);
 
  WriteLn;
  repeat
    Write('Vvedite N:');
    Readln(N);
  until (n>2) and (n<100);
 
  spred := '';
  while not eof(t) do begin
    Readln(t, s);
    s := RemoveSpaceFromString(s);
    if sPred<>'' then s := spred+ ' ' + s;
              ;
    sPred := '';
    if Length(s)>N then begin
      i := N;
      while (i>0) and (s[i]<>' ') do Dec(i);
      if i=0 then begin
                    WriteLn('No solution! Stope!!');
                    Close(t);  Close(fr);
                    Halt(1)
                  end;
      sPred := Copy(s, i+1, Length(s)-i-1);
      s := Copy(s,1, i);
      { WriteLn('>',s,'<', '   sped = >',sPred,'<'); }
    end;
    if s<>'' then 
       WriteLn(fr,s);
  end;
  if sPred<>'' then WriteLn(fr, sPred);
  Close(t);
  Close(fr);
  WriteLn('Done!');
  Readln
end.

var fi, fo: text;
    n: integer;
    buf, wrd, s: string;
    err: boolean;
begin
  assign(fi, 'c:\in.txt'); reset(fi);
  assign(fo, 'c:\out.txt'); rewrite(fo);
  repeat
    write('Length = '); readln(n);
    if (n < 1) or (n > 254) then writeln('Диапазон длины строки: 1..254 символов.')
  until (n >= 1) and (n <= 254);
  err := false;
  buf := '';
  while not eof(fi) do
    begin
      readln(fi, s);
      s := s + ' ';
      while length(s) > 0 do
        begin
          wrd := copy(s, 1, pos(' ', s));
          delete(s, 1, pos(' ', s));
          while (length(wrd) > 0) and (wrd[1] = ' ') do delete(wrd, 1, 1);
          if length(wrd) = 0 then continue;
          if length(wrd) >= n
            then begin
              if length(buf) > 0 then writeln(fo, copy(wrd, 1, length(wrd) - 1));
              writeln(fo, copy(wrd, 1, length(wrd) - 1));
              err := true
            end
            else if length(buf) + length(wrd) < n + 1
              then buf := buf + wrd
              else begin
                writeln(fo, copy(buf, 1, length(buf) - 1));
                buf := wrd
              end
        end
    end;
  if length(buf) > 0 then writeln(fo, copy(buf, 1, length(buf) - 1));
  close(fo);
  close(fi);
  if err then writeln('Внимание! Выходной файл содержит слова диной более ', n - 1, ' символов.');
  write('Завершено. Нажмите клавишу <Enter>.');
  readln
end.