Программа для подсчета количества букв в строке!

Program HD;
uses crt;
var
s:string; //строка
x:integer; //счетчик для цикла
abc: array [0..255] of integer; //таблица количества использований символов
Begin
clrscr;
writeln('Введите текст: ');
readln(s); //cчитываем текст
For x:=1 to 255 do abc[x]:=0; //обнуляем счетчик букв
For x:=1 to length(s)do //перебираем все символы в строке
begin
if ((s[x]>='а') and (s[x]<='я')) //если символ принадлежит кирилице
then abc[ord(s[x])]:=abc[ord(s[x])]+1; //тогда в массив алфавита для соответствующего символа увеличиваем счетчик
end;
For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)'); //теперь для всех элементов алфавита начиная с пробела выводим количество их использования, если оно не нулевое
End. //финита ля программа

Program consider_letter;
uses crt;
var
s:string; //строка
x:integer; //счетчик для цикла
abc: array [0..255] of integer; //таблица количества использований символов
Begin
clrscr;
writeln('Введите текст: ');
readln(s); //cчитываем текст
For x:=1 to 255 do abc[x]:=0; //обнуляем счетчик букв
For x:=1 to length(s)do //перебираем все символы в строке
begin
if ((s[x]>='а') and (s[x]<='я')) //если символ принадлежит кирилице
or (s[x]='ё')        //эта строка нужна для учёта буквы "ё"
then abc[ord(s[x])]:=abc[ord(s[x])]+1; //тогда в массив алфавита для соответствующего символа увеличиваем счетчик
end;
For x:=32 to 255 do if abc[x]>0 then writeln('буква "',chr(x),'" встречается ',abc[x],' раз(а)'); //теперь для всех элементов алфавита начиная с пробела выводим количество их использования, если оно не нулевое
End.  // Конец программы

Const RusChar = ['А'..'Я','а'..'п','р'..'я','Ё','ё'];
Var
  m  : array[0..255] of Longint;
  i  : Byte;
  St : String;
Begin
  For i:=0 to 255 do m[i]:=0;
  {Readln(St);} St:='сегодня днём над городом прошел дождь';
  For i:=1 to Length(St) do If St[i] in RusChar then Inc(m[Ord(St[i])]);
  For i:=0 to 255 do If m[i]<>0 then Writeln(Chr(i),' - ',m[i]);
End.

Program consider_letter;
uses crt;
Const RusChar = ['А'..'Я','а'..'п','р'..'я','Ё','ё'];
Var
  m  : array[0..255] of Longint;
  i  : Byte;
  St : String;
Begin
  clrscr;
  For i:=0 to 255 do m[i]:=0;
  Writeln('Напишите текст для подсчёта букв');
  ReadLn(St);
  For i:=1 to Length(St) do If St[i] in Ruschar then Inc(m[Ord(St[i])]);
  For i:=0 to 255 do If m[i]<>0 then Writeln('Букв в тексте ',Chr(i),' - ',m[i]);
  ReadLn;
End.

const RusChar=['А'..'Я','а'..'я','Ё','ё']