Помогите пожалуйста составить
программу на ''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.