файл типа string

[Somebody]

Сообщение от whatever

Вот я так же подумал, однако открываю блокнотом - и там переход на новую строку только после 1024 символов, и то, видимо, только потому, что в блокноте строки длиннее не бывают. А если все копировать и вставить в notepad++ то там вообще одна длиннюююююющая строка получается.

Ну так file of String[n] ничем не лучше file of Byte или ещё чего-нибудь, он не предназначен для блокнотов, зачем там переводы строки?

[whatever]

Вроде получше стало, но все равно не то.

//начало
  for i:=1 to 255 do
    Sempty[i]:=' ';
  while not EOF(T) do
    begin
      readln(T,S);
      insert(Sempty,S,length(s));
      insert(#13#10,S,1);
      write(F,S);        
      insert(Sempty,S,1);
    end;
close(T);
closefile(F);
END.

Исходник (первый попавшийся текст):

Не будем смеяться над наивностью заказчиков, полагающих, что они найдут в почтовом ящике партнёра
что-нибудь, кроме дохлых мух и собственных же писем (нынче только ленивый имеет меньше пяти бесплатных
почтовых ящиков, чтобы не смешивать клиентов). Но, как говорится, хозяин - барин. Люди мечтают заплатить
деньги за информацию, это их право. Ажиотаж подогревается также всевозможными сообщениями о вскрытии
секретных архивов Пентагона, о проникновении школьников через компьютерную сеть в святая святых солидного
банка, о шалостях хакеров на серьёзных сайтах и т.д.

Результат:

c
Не будем смеяться над наивностью заказчиков, полагающих, что они найдут в почтовом ящике партнёра                                                                                                                                                            h
что-нибудь, кроме дохлых мух и собственных же писем (нынче только ленивый имеет меньше пяти бесплатных                                                                                                                                                       j
почтовых ящиков, чтобы не смешивать клиентов). Но, как говорится, хозяин - барин. Люди мечтают заплатить                                                                                                                                                     f
деньги за информацию, это их право. Ажиотаж подогревается также всевозможными сообщениями о вскрытиитить                                                                                                                                                     k
секретных архивов Пентагона, о проникновении школьников через компьютерную сеть в святая святых солидного                                                                                                                                                    6
банка, о шалостях хакеров на серьёзных сайтах и т.д.ков через компьютерную сеть в святая святых солидного

Если скопировать результат в блокнот, то косяк виден лучше, а именно:
1) В случае, если предыдущая строка была длинее настоящей, то в настоящей есть окончание предыдущей.
2) в самой первой строке появился символ "c", а в конце остальных "h,j,f,k,6"

Пытаясь бороться с первой проблемой добавил "insert(Sempty,S,1);" под конец цикла, не помогло. Что же до второй - это вообще не поддается объяснению (с точки зрения моих знаний).

[whatever]

Сообщение от Somebody

Ну так file of String[n] ничем не лучше file of Byte или ещё чего-нибудь, он не предназначен для блокнотов, зачем там переводы строки?

Знаешь, понятия не имею :D.
Получил задание, пытаюсь выполнить. В задании "выровнять строки до одной длины используюя пробелы". Я так понимаю это подразумевает переход на новую строку.
Хотя препод обмолвился, мол "посмОтрите, чем оригинал от результата отличается". Может он и имел ввиду, что все будет записано в одну строчку?