составить программу поиска заданного с клавиатуры слова в заданном текстовом файле на языке Паскаль

Решение на Pascal ABC

var f1: text;
i: integer;
stroka, slovo: string;
begin
Assign(f1, 'input.txt');
Reset(f1);
write ('slovo=');
readln (slovo);
i:=0;
while not Eof(f1) do
begin
readln (f1, stroka);
if slovo in stroka then inc(i);
end;
Close(f1);
if i <> 0 then writeln ('Слово есть в файле')
else writeln ('Слово отсутствует, в файле');
end.