Написать программу, которая находит определенное слово в файле — Pascal(Паскаль)

uses crt;
var f:text;
     str:string; 
     s:string;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
write('Введите слово для поиска: ');
readln(s);   
while not eof(f) do
   begin
      readln(f,str);
      if pos(S,str)>0 then
      writeln(str);
   end;
close(f);
readln
end.