строки Опции

[Caries]

Стоит следующая задача: дан внешний текстовый файл, нужно взять из него текст и записать в новый файл, причем разбив его типа как в ворде, 25 строк на странице и 80 символов строке.
1.Проблема - как реализовать , чтобы считывалось из текстовго файла по 80 символов и записывалось в массив и далее следующие 80 символов.
2. Нужно ставить символ | чтобы в итоге получилась рамка. Как реализовать чтобы в конце каждой строки скажем после 80 символа ставился такой символ.
спасибо.

[volvo]

Ну и зачем такие сложности? Все проще гораздо:

Код

type arrStr = array[1 .. 100] of string[80];
var
 s: arrStr;
 f: text;
begin
 { открываешь файл, и обрабатываешь ошибки }

 i := 1; s[i] := ''; len := 0; { начинаешь заполнять массив строк с первой }
 while not eof(f) do begin
   read(f, ch);
   { если длина превысила 80 символов, или встретился перевод строки }
   if (ch = #13) or (ch = #10) or (len > 80) then begin
     { переходим на след. элемент массива строк }
     inc(i);
     if len > 80 then s[i] := ch else s[i] := '';
     len := 1; { длина снова = 1 }
   end
   { иначе просто добавить символ к текущей строке и увеличить ее длину }
   else begin
       s[i] := s[i] + ch; inc(len)
   end
 end;

 { вот тут все символы из файла будут считаны в строки длиной
не более 80 символов и занесены в массив s }
end.