Дан текстовый файл определить строку, в которой наибольшее число пробелов

program Zadanie192project1;
const
  filename = 'primer.txt';
var
  f: Text;    { Файловая переменная}
  str: string;  { Переменная для хранения строковой информации}
  i,k,j: integer;  { Вспомогательные переменные для организации циклов}
  max: integer; { Переменная для хранения значения количества пробелов строке}
  number: integer; { Переменная для хранения значения номера строки с наибольшим
                     количеством пробелов}
 
begin
  assign(f,filename);   { Связывание файловой переменной с именем файла}
  Reset(f);             { Установка файла на чтение}
  j:= 0;
  max:= 0;
  while not EOF(f) do   { Цикл для прочтения всех строк файла}
  begin
    inc(j);              { Счетчик для подсчета номера строки ф тексте}
    k:= 0;               { Установка счетной переменной в начальное состояние}
    Readln(f,str);           { Чтение информации из файла в строковую переменную}
    for i:= 1 to length(str) do  { Перебор всех индексов символов от 1 до значения размера строки}
      if str[i] = ' ' then      { Если пробел найден, то ...}
        inc(k);                 { Увеличивается счетчик}
    if k > max then             { Количество подсчитанных пробелов сравнивается с
                                  значениями полученными от других строк}
      begin
        max:= k;
        number:= j               { Находится номер строки с максимальным значением}
      end;
   { Строка выводит результаты работы программы построчно. Раскоментировать строку кода
     если хочется увидеть работу более подробно}
   { writeln('Номер строк: ',j,'; количество пробелов: ',k,'. '); }
  end;
  writeln('Наибольшее количество пробелов имеет ',number,' строка.');
  Readln;
end.