Имеется текстовый файл. Подсчитать количество строк , в которых имеется ровно 5 букв «и»

const
f= 'File.txt';
var
FileTxt: text;
Count, i: integer;
Str: string;
begin
assign(FileTxt, f);
reset(FileTxt);
while not EOF(FileTxt) do
begin
readln(FileTxt, Str);
for i:=1 to length(Str) do
if Str[i] = 'и' then inc(Count);
begin
if Count = 5 then 
writeln(Str);
Count:=0;
end;
end;
close(FileTxt);
end.

const
  filename = 'file.txt';
 
var
  f: text;
  c: char;
  i, k, t: integer;
 
begin
  Assign(f, filename);
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 then
  begin
    while not EOF(f) do
    begin
      k := 0;
      while not EOLn(f) do
      begin
        Read(f, c);
        if c = 'и' then
          k := k + 1;
      end;
      if k = 5 then
        t := t + 1;
      ReadLn(f);
    end;
    WriteLn(t);
    Close(f)
  end
  else
    WriteLn('Файл не найден');
  ReadLn
end.

const
f= 'File.txt';
var
  FileTxt: text;
  Count, CountStrWith5, i: integer;
  S: string;
begin
assign(FileTxt, f);
reset(FileTxt);
CountStrWith5 := 0; {обнулили счётчик строк}
while not EOF(FileTxt) do
begin
  Count := 0;
  readln(FileTxt, S);
  for i:=1 to length(S) do
    if S[i] = 'и' then inc(Count);
  if Count = 5 then begin
     writeln(S);
     Inc(CountStrWith5)
  end;
end;
close(FileTxt);
WriteLn('Всего нужных строк встретилось: ', CountStrWith5);
end.