Определить номер строчки, что содержит три буквы "о" - Pascal

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