Помогите пожалуйста составить программу на ''Pascal ABC'') Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

var   str : string;   i, j: byte;   schr: char; begin   readln(str); //Вводим строку   str := ' ' + str;  //Это чтобы не удлинять условие, что ниже   readln(schr); //Вводим символ   for i := 2 to length(str) do     if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then       inc(j);   writeln(j); end.