Строки: Определить, сколько слов содержат ровно 3 буквы, заданные пользователем

Var i,j,k:byte;
    s,s1:string;
    ch:char;
Begin
    write('Введите строку: ');readln(s);
    write('Введите букву: ');readln(ch);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      j:=0;
      For i:=1 to Length(s1) do
       if s1[i]=ch then inc(j);
      if j=3 then inc(k);
    End;
    writeln('Слов содержащих = 3 буквы "',ch,'" = ',k);
    readln;
End.

program Search_3_Eq_Symbols;
const      // Проверочная строка
  tstStr = 'Kappa Psi is  initiated into the Commissioning Program. Commissioning...';
var
  symb : char;
  cnt_Symb, cnt_Word, i : byte;
begin
  i := 1;                    // Задаю индекс первого символа строки
  symb := 'i';               // Назначаю искомый повторающийся 3 раза символ
  while tstStr[i] <> '.' do  // Выполняю цикл до встречи с точкой
  begin
    while (tstStr[i] <> ' ') and (tstStr[i] <> '.') do // Выполняю ..
    begin                         // ..до встречи с пробелом или точкой
      if tstStr[i] = symb then    // Если символ совпадет с искомым, то ..
        cnt_Symb := cnt_Symb + 1; // .. увеличиваем счётчик совпадений
      i := i + 1;                 // Готовим индекс следующего символа ..
    end;
    if cnt_Symb = 3 then          // Если насчитали ровно 3 символа, то ..
      cnt_Word := cnt_Word + 1;   // .. слово найдено и ..
      // Проверяем было ли причиной окончания поиска окончание предложения ..
    if tstStr[i] <> '.' then      // .. и если нет, то передвигаемся по строке ..
        i := i + 1;               // .. ещё на один символ вперёд
    cnt_Symb := 0;                // В конце слова обнуляем счётчик совпадений
  end;
  writeln('Количество слов с 3-мя символами "', symb, '" -> ', cnt_Word);
end.