Строки, Подсчитать.... Опции

[Rom1k]

Строка символов представляет собой предложение,написанное на русском языке.Предложение имеет длину не более 100 символов и заканчивается точкой.Подсчитать количество различных букв,которые входят в это предложение.

Вот есть подобная задача.только с повторением слов.Что там надо исправить,чтобы всё работало?

помогите.Со строками у меня проблемы(

program k_3;
var
 a:array [1..20] of string;{массив слов}
 b:array [1..20] of byte;{Массив счетчиков появления слов}
 r,i,j,k:byte;
 st,st1:string;
Begin
 WriteLn('Введите строку слов');
 ReadLn(st);
 k:=0;{индекс для перемещения по массиву слов и массиву счётчиков}
 r:=1;
 while r<= length(st) do
  begin
   while(st[r]='') and (i<=length(st)) do
    r:=r+1;
   j:=r; {Левая граница слова}
   while (st[r]<>'') and (r<=length(st)) do
    r:=r+1; {Правая граница слова}
    st1:=copy(st,j,r-j);

   {Поиск слова в массиве слов - а}
   i:=1;
   while (i<=20) and (a[i]<>st1) do
    i:=i+1;

   {Анализируем значение индекса i}
   if i>20 then
    begin
     k:=k+1;
     b[k]:=b[k]+1;
     a[k]:=st1;
    end
   else
    b[i]:=b[i]+1;
  end;
 WriteLn('В массиве (а) ',k,' различных слов ');
 writeln('Частота появления каждого слова  ');
 for i:=1 to k do
  writeln(a[i],'    ',b[i]);
END.

[Артемий]

Знаешь,если как я смотреть без компилятора,то вроде должно работать..

Добавлено через 3 мин.
И может

al:=['А'..'Я'];

?

[Malice]

Проверь, не поставил ли ты в функции UpCase неправильно буквы диапазона, т.е.:
'а'..'п':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
'р'..'я':UpCase:=Chr(ord('Р')+ord(Ch)-ord('р'));
'А'..'Я':UpCase:=Chr(ord('А')+ord(Ch)-ord('а'));
все веделенные буквы должны быть русскими.