Строки. Подсчитать количество вхождений каждой буквы.

uses crt;
var s:string;
i,count:integer;
k:char;
begin
clrscr ;
write ('Vvedite text: ');
readln (s);
 
 For k:='A' to 'Z' do     {DLYA BOLSHUH}
  begin
    count:=0;
    for i:=1 to length (s) do
       if s[i]=k then
          Inc (count);
    if count > 0 then
       writeln (k,' - povtorov - ', count-1);
   end;
   
  For k:='a' to 'z' do  { DLYA MALENKIH}
  begin
    count:=0;
    for i:=1 to length (s) do
       if s[i]=k then
          Inc (count);
    if count > 0 then
       writeln (k,' - povtorov - ', count-1);
   end;
   
Readkey
End.

program Project1;
 
const
  //Множество букв.
  D = [
    'А'..'П', 'Р'..'Я', 'Ё',
    'а'..'п', 'р'..'я', 'ё',
    'A'..'Z', 'a'..'z'
  ];
var
  S, sCh : String;
  Ch : Char;
  i, Len : Integer;
  //Это тоже самое что и: ArrStat : array[#0..#255] of Integer;
  ArrStat : array[Char] of Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Обнуляем элементы массива статистики.
    for Ch := #0 to #255 do ArrStat[Ch] := 0;
 
    //Собираем статистику.
    Len := Length(S);
    for i := 1 to Len do Inc(ArrStat[S[i]]);
 
    //Показываем результат.
    Writeln('Статистика использования букв:');
    S := '';
    i := 0;
    for Ch := #0 to #255 do begin
      if not (Ch in D) then Continue;
      if S <> '' then S := S + #9;
      Str(ArrStat[Ch], sCh);
      S := S + Ch + '(' + sCh + ')';
      Inc(i);
      if i mod 7 = 0 then begin
        Writeln(S);
        S := '';
      end;
    end;
    if S <> '' then Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.