Составить таблицу слов данного предложения, начинающихся на букву, проверте пожалуйста Опции

[artem66rus]

Составить таблицу слов данного предложения, начинающихся на букву "Ж" // "ж", с указанием числа повторений каждого такого слова. (прогамма считает как большую букву Ж так и маленькую ж) - паскаль АБС

Не могу разобратся с регистром (считает либо Ж или ж )
Может Вы поможете в дополнении программы

program slova;
Uses Crt;
var
  stroka, slovo : string;
  i,k             : integer;
begin
  ClrScr;
  WriteLn('Введите строку  ');
  TextColor(Cyan);
  ReadLn(stroka);
  stroka:=stroka + '.';
  i:= 1;  TextColor(LightGreen);
  while Length(stroka) <> 0 do
  begin
    if pos(copy(stroka,i,1),' ,.?!-:;') <> 0
        then begin
               slovo := copy(stroka,1,i-1);
                if slovo[1]='ж' then
 writeln(slovo);
               delete(stroka,1,i);
               i := 1;
 
             end
        else  i := i+1;
  end;
end.