Выписать в новый файл только те строки, в которых присутствует слова "форм" или "самовол" - Pascal ABC

Формулировка задачи:

Прошу помочь. Очень нужно. Требуется написать программу. Условие: Дан файл содержащий строки. Нужно выписать в новый файл только те строки в которых присутствует слова "форм" или "самовол"

Примерное содержание текста Alexei_Zhigalin - оскорбления военнослужащих Alex_Markin - Продажа формы. Alex_Mafia - слив формы Alex_Mirei - попытка продажи формы Alejandro_Machet - самовол Alexei_Osipov - самовол Alexei_Kurylev - оскорбление ЛВА и генерала Artyom_Darvishyan Слив формы

Решение задачи: «Выписать в новый файл только те строки, в которых присутствует слова "форм" или "самовол"»

Листинг программы

uses crt;
var
f1,f2: text;
s: string;
n, i: integer;
begin
assign (f1, 'input.txt');
reset(f1);
assign (f2, 'output.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1, s);
if (pos('Г±Г*Г¬Г®ГўГ®Г«',s)>0) or (pos('ГґГ®Г°Г¬',s)>0)
then writeln(f2,s);
end;
close(f1);
close(f2);
writeln('ГЏГ°Г®ГўГҐГ°ГјГІГҐ ГґГ*Г©Г« output.txt');
end.

Объяснение кода листинга программы

В начале кода используются единицы и нули для инициализации переменных и констант.
Строка 'input.txt' присваивается переменной f1, а строка 'output.txt' - переменной f2.
Переменная s инициализируется как пустая строка.
Переменные n и i инициализируются как 0 и 1 соответственно.
Запускается цикл while, который будет выполняться до конца файла 'input.txt'.
Внутри цикла считывается строка из файла 'input.txt' и сохраняется в переменной s.
Затем происходит проверка условия: если в строке s есть хотя бы одно из слов форм или самовол, то эта строка записывается в файл 'output.txt' с помощью функции writeln.
После окончания цикла while закрываются файлы f1 и f2 с помощью функций close.
Выводится сообщение о том, что было записано в файл 'output.txt'.
Конец программы.