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

[_JC_]

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

[_JC_]

А почему каждый символ воспринимается только со 2-ого нажатия можно ли это исправить? И как сделать чтобы он переносил не на серидине слова а его целиком если оно не влазит в строку???

[volvo]

как сделать чтобы он переносил не на серидине слова а его целиком если оно не влазит в строку???

Вот так:

uses crt;

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

begin
  s := '';
  repeat
    ch := readkey;
    case ch of
      #0 : readkey;
      #27: ; { ничего не делать ... }
      else begin

        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;
    end;
  until ch = #27;
end.