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

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

1.Дано текстовый файл, разбитый на строчки. Определить номер строчки, что содержит три буквы "о".

Решение задачи: «Определить номер строчки, что содержит три буквы "о"»

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

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.

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

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