строки Опции

[Caries]

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

[volvo]

Я бы переписал Formats вот так:

procedure formats;{Форматируем текст}
var ch:char;
begin
while (not eof(t_in)) and (i <= n) do begin
  read(t_in, ch);
  if (ch = #13) or (ch = #10) then
    while length(m[i]) < 78 do m[i] := m[i] + #32
  else
    if length(m[i]) < 78 then begin
      m[i] := m[i] + ch
    end
    else begin
      inc(i);
      m[i] := ch; { <--- Здесь терялся символ }
    end;
end;

writeln;
writeln('Файл успешно отформатирован и записан: ', f_out);
readln;
end;