Получить все строки файла f, фрагментом которых есть строка s - Pascal

program SubStrSInFile;
 
const
  FILE_NAME = 'test.txt';
  TARGET_SUB_STRING = 'ooo';
 
var
  InputFile : Text;
  InputStr : String;
 
begin
  //открываем файл на чтение
  Assign(InputFile, FILE_NAME);
  Reset(InputFile);
  
  //считываем и проверяем строчку за строчкой
  while not Eof(InputFile) do
    begin
      readln(InputFile, InputStr);
      if (pos(TARGET_SUB_STRING, InputStr) <> 0)
      then writeln(InputStr);
    end;
    
  //закрываем файл
  Close(InputFile);
  readln;
end.