FreePascal.ru

Спасибо за помощь, справился. Выкладываю конечный вариант программы
program Lab1;
uses CRT;
var
InpFile,OutFile :text ;
InputString : string;
S: string;
OutfileName: string;
CONST
InpFileName='Lab1Inp.txt';
begin
ClrScr;
Assign(InpFile, InpFileName );
Reset (InpFile ...

Добрый вечер! Хотел бы проконсультироватся по поводу своего задания.
"В программу ввести ТХТ файл, выполнить его обработку и результат вывести в другой ТХТ файл. Если в введеном ТХТ файле строка начинаеться с BEGIN или begin, тогда перед строкой добавить 2 пустые строки."

Вот что у меня есть на ...