в файле input.txt записаны строки сколько их неизвестно заменить все слова короче на в общем и записать результат в файл

program zz1;var s:string;i:integer;f1, f2:text;beginassign(f1,\'input.txt\');reset(f1);assign(f2,\'output.txt\');rewrite(f2);while not eof(f1) do // организуем чтение строк, пока не достигнут конец файлаbeginreadln(f1,s);for i:=1 to length(s)-5 do // перебираем по шесть символов в строкеif copy(s,i,6) = \'короче\' // если находим слово \"короче\", то

then begin delete(s,i,6);insert(\'в общем\',s,i);end; // удаляем его, на его место вставляем \"в общем\"

writeln(f2,s); // Выводим полученную строку в файлend;close(f1);close(f2);end.