строки Опции

[Caries]

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

[volvo]

2. Нужно ставить символ | чтобы в итоге получилась рамка. Как реализовать чтобы в конце каждой строки скажем после 80 символа ставился такой символ.

Значит, так ... Если поставить такой символ после 80-го и вывести на печать, то он просто перенесется на следующую строку, т.к. строка на экране содержит максимум 80 символов.

Я бы разбивал не по 80, а по 78, и распечатывал вот так:

Код

Writeln(#179+s+#179);

где s это полученная строка из 78 символов... Таким образом, эта строка будет находиться между двумя символами "|" ...

P.S. Если же нужно сохранить в массиве измененную строку (с символами "|"), то:

Код

s := #179+s+#179;