Задача на строки[Delphi]

[MariaD]

Ввести предложение в виде символьной строки, вывестти количество слов, содержащих ровно 3 "i".Слова разделяются пробелами.

у меня работает правильно, если последний символ это пробел.Как исправить чтобы работало если последний символ буква.?

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var t,w,c:string;
 ki,k,l,i:Integer;

begin
//Writeln('Vvedite text');
 // Readln(t);
k:=0;
w:=''; ki:=0;

t:='cgciihi iiniiig hfiij asdiii ';
L:=Length(t);
 for i := 1 to L do begin
 c:=t[i];

   if (c<>' ') and (c='i') then
   inc(ki);

   if (c=' ') then
   if (ki=3) then begin
    Inc(k); ki:=0; end else ki:=0;
     
  end;
  Writeln('Kolichestvo slov =',k);

  Readln;
end.

[BDA]

for i := 1 to L do begin
  c:=t[i];
  if (c<>' ') and (c='i') then
    inc(ki);
  if (c=' ') then
  begin
    if (ki=3) then
      Inc(k);
    ki:=0;
  end;
end;
if (ki=3) then
  Inc(k);

[Mad_Cat]

Как исправить чтобы работало если последний символ буква

Добавить пробел)

t:=t+' ';