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

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
var
  Arr : array[AnsiChar] of Integer; //Это тоже самое что и: Arr : array[#0..#255] of Integer;
  Ch : AnsiChar;
  i, CntMax : Integer;
  S : AnsiString;
begin
  {Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  Если после переключения русские буквы показываются неверно,
  следует открыть системное меню консольного окна - щелчком мыши в левом
  верхнем углу окна консоли и выбрать:
  Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте текст:');
    Readln(S);
 
    //Обнуление элементов массива.
    for Ch := #0 to #255 do Arr[Ch] := 0;
    //Определяем количество присутствий каждого символа.
    for i := 1 to Length(S) do Inc( Arr[S[i]] );
 
    //Задача 1.
 
    //Определяем наибольшее количество повторов символов.
    CntMax := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] > CntMax then CntMax := Arr[Ch];
    //Распечатываем символы, которые встречаются наиболее часто.
    if CntMax = 0 then
      Writeln('Строка пуста.')
    else begin
      Writeln('Наибольшая частота встреч: ', CntMax);
      Writeln('Символы, которые встречаются наиболее часто:');
      i := 0;
      for Ch := #0 to #255 do
        if Arr[Ch] = CntMax then begin
          Inc(i);
          if Ch <= #32 then
            Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
          else
            Write(Ch, ' ');
        end;
      Writeln;
      Writeln('Всего таких символов: ', i);
    end;
 
    //Распечатываем символы, которые встречаются более 3 раз.
    Writeln('Символы, которые встречаются более 3 раз:');
    i := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] > 3 then begin
        Inc(i);
        if Ch <= #32 then
          Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
        else
          Write(Ch, ' ');
      end;
    Writeln;
    Writeln('Всего таких символов: ', i);
 
    //Зачада 2.
 
    //Распечатываем символы, которые не повторяются.
    //Это те символы, которые встречаются только 1 раз.
    Writeln('Символы, которые не повторяются:');
    i := 0;
    for Ch := #0 to #255 do
      if Arr[Ch] = 1 then begin
        Inc(i);
        if Ch <= #32 then
          Write('#', Ord(Ch), ' ') //Неотображаемые символы распечатываем в виде кодов.
        else
          Write(Ch, ' ');
      end;
    Writeln;
    Writeln('Всего таких символов: ', i);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.