Текст, порубить на 40-символьные строки Опции

[_JC_]

Помогите решить задачку!
Дано: текст на русском языке.
Задане: переформатировать текст так, чтобы длина любой строки не превосходила 40 символов.(Выравнивать по правому краю не требуется).
Спасибо заранее!

[volvo]

_JC_, приводим задачу к уже решенной :D :

uses crt;

const
  maxLen = 40;
  delimit = [' ', '.', ','];
var
  s, T: string;
  ch: char;

  f: text;

begin
  assign(f, 'text.txt');
  reset(f);

  s := '';
  while not eof(f) do begin

    read(f, ch);
    write(ch);
    s := s + ch;

    if length(s) = maxLen then begin
      T := '';
      while not (s[length(s)] in delimit) do begin
        T := s[length(s)] + T;
        delete(s, length(s), 1);
        gotoxy(wherex - 1, wherey); clreol;
      end;
      s := T;
      writeln;
      write(s);

    end;

  end;
  close(f);
end.

P.S. Это будет работать, когда весь текст забит в файле в одну строку. Если есть символы #13 (перевод строки), то нужно будет их соответствующим образом обрабатывать... Тестировалось на файле:

start finish end begin end begin start finish end begin end begin start finish end begin end begin start finish end begin end begin