Pascal. String

[H4t]

Дана строка, состоящая из слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые начинаются и заканчиваются одной и той же буквой.

program problem;
uses crt;
const literi = ['A'..'Я','A'..'Z'];

var
stroka, Slovo,x: string; simvol: char;
i,k,error : integer;

begin
clrscr;
Write('Введите предложение: ');
Readln(stroka);
for i:=1 to length(stroka) do
if (ord(Stroka[i])<=90)and(ord(stroka[i])>=65) or
(ord(Stroka[i])<=159)and(ord(stroka[i])>=128) then
begin

k := 0;

for i := 1 to length(stroka) do
if stroka[i] <> ' ' then Slovo := Slovo + stroka[i]
else if slovo[1] = stroka[i-1] then begin
inc(k);
Slovo := '';
end;
if Slovo[1] = stroka[length(stroka)] then begin
inc(k);
write('Кол-во слов c одинаковой начальной и конечной буквой: ',k);
Readln;
end;
end
else begin
write(' Вы ввели не то, что требует условие ! ');
break;
end;

end.

Проблема в следующем - если вводить заглавные английские буквы - то все работает, если же русские заглавные (что удовлетворяет условию задачи) - то все равно выходит ошибка, помогите пожалуйста разобраться, почему с русскими заглавными буквами программа не работает.

[ViktorR]

Только одно из замечаний:
У Вас есть цикл с параметром i, в теле которого находится условный оператор, в ветке которого вновь используется оператор цикла с параметром i. Выполняется переинициализация параметра цикла в его теле. Это недопустимо.

for i:=1 to length(stroka) do
if (ord(Stroka[i])<=90)and(ord(stroka[i])>=65) or
(ord(Stroka[i])<=159)and(ord(stroka[i])>=128) then
begin

k := 0;

for i := 1 to length(stroka) do
if stroka[i] <> ' ' then Slovo := Slovo + stroka[i]
...

С остальным надо разбираться ...

[studen]

Русские буквы в кодировке паскаля имеют разрыв, это можно проверить выводом в цикле от 0 до 255 всех символов. Мб причина в этом.

[Vlad0n]

Да, дело в диапазоне литер самого паскале. Русские заглавные примерно в таком диапазоне: 190-223.

[Utkin]

Начинали вроде правильно - с множеств, че дальше навертели-то? Я бы поступал по-другому. Просто резал бы строку с помощью функции. То есть функция бы брала слово и удаляла его вместе с разделительными пробелами из входящей строки. А уже во взятом слове проверялись бы первый и последний символы с Вашим множеством literi, который Вы объявили, но почему-то решили не использовать в программе.

[Serge_Bliznykov]

есть решение аналогичной задачи.

Ввести текст и определить, сколько слов начинается и заканчивается на одинаковую букву. Собрать эти слова в новое предложение, удалив их из старого текста

смотрите мой код в теме: код string