Определить наиболее часто встречающийся символ в строке

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
f:boolean;
i,j,l,m:integer;
s:string;
a:array of record
c:char;
n:integer;
end;
begin
s:=edit1.Text;
if s='' then
begin
showmessage('Введите строку!');
exit;
end;
setlength(a,0);
for i:=1 to length(s) do
begin
f:=true;
l:=length(a);
for j:=0 to l-1 do
if a[j].c=s[i] then
begin
a[j].n:=a[j].n+1;
f:=false;
break;
end;
if f then
begin
setlength(a,l+1);
a[l].c:=s[i];
a[l].n:=1;
end;
end;
m:=0;
for i:=0 to length(a)-1 do
if a[i].n>m then
m:=a[i].n;
label5.Caption:=inttostr(m);
label3.Caption:='';
for i:=0 to length(a)-1 do
if a[i].n=m then
label3.Caption:=label3.Caption+a[i].c+' ';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
//Флаг f равен Истина (true), если в массиве a нет симовлов из строки s.
f:boolean;
//i и j - индексы массивов в циклах, l - длина массива a, m - максимальное количество символов в строке.
i,j,l,m:integer;
//s - строка.
s:string;
//a - массив записей, где c - символ, n - количество символа в строке.
a:array of record
c:char;
n:integer;
end;
begin
//Получаем строку s из текстового поля edit1.
s:=edit1.Text;
//Если строка s пуста, то выводим сообщение и выходим из обработчика события нажатия на кнопку.
if s='' then
begin
showmessage('Введите строку!');
exit;
end;
//Устанавливаем длину массива a равной 0.
setlength(a,0);
//i изменяется от 1 до длины строки s.
for i:=1 to length(s) do
begin
//Флаг f равен истина, то есть в массиве a нет симовла из строки s.
f:=true;
//l - длина массива a.
l:=length(a);
//j изменяется от 0 до l-1.
for j:=0 to l-1 do
//Если j-ый символ из массива a равен i-ому символу строки s, то:
if a[j].c=s[i] then
begin
//Увеличиваем количество j-ого символа из массива a на 1.
a[j].n:=a[j].n+1;
//Флаг f равен ложь, то есть в массиве a есть символ из строки s.
f:=false;
//Выходим из цикла.
break;
end;
//Если флаг f равен истина, то есть в массиве a нет символа из строки s, то:
if f then
begin
//Устанавливаем длину массива a на 1 больше.
setlength(a,l+1);
//Помещаем i-ый символ строки s в конец массива a.
a[l].c:=s[i];
//Устанавливаем клоличество этого символа равным 1.
a[l].n:=1;
end;
end;
//Максимальное количество m символов в строке s равно 0.
m:=0;
//i изменяется от 0 до длины массива a - 1.
for i:=0 to length(a)-1 do
//Если количество i-ого символа из массива a больше m, то:
if a[i].n>m then
//m равно количеству i-ого символа из массива a.
m:=a[i].n;
//Присваиваем метке 5 значение m.
label5.Caption:=inttostr(m);
//Значение метки 3 пусто.
label3.Caption:='';
//i изменяется от 0 до длины массива a - 1.
for i:=0 to length(a)-1 do
//Если количество i-ого символа из массива a равно максимальному m, то:
if a[i].n=m then
//Увеличиваем значение метки 3 на количество i-ого символа из массива a.
label3.Caption:=label3.Caption+a[i].c+' ';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//Закрываем программу.
close;
end;
 
end.

a:array of record//это массив записей с двумя полями
              c:char;//символ
              n:integer;//его количество в строке
              end;

procedure TForm1.Button1Click(Sender: TObject);
var i,m:integer;
    s:string;
    a:array[32..255] of integer; //массив встрчаемости  символов(видимых)
begin
s:=edit1.Text;
if s='' then
 begin
  showmessage('Введите строку!');
  exit;
 end;
//Обнулим массив
for i:=32 to 255 do
a[i]:=0;
//запишем в массив частоту встркчаемости символов
for i:=1 to length(s)do
inc(a[ord(s[i])]);
//нвйдем максимальный
m:=32;
for i:=33 to 255 do
if a[i]>a[m] then m:=i;
ShowMessage('Самый частый символ '+chr(m));
 
end;

var
a:array[2..9]of integer;//Массив с именем a, нумерацией от 2 до 9, с типом - целое число integer.
b:array of string;//Массив с именем b, не определённой нумерацией, с типом - строка string.

//Элементу массива a с номером 3 присвоили значение 5.
a[3]:=5;
//c присвоили значение элемента массива a с номером 3. 
//Теперь c равно 5.
c:=a[3];
//Установили длину массива b равной 10. 
//Теперь элементы нумеруются от 0 до 9.
setlength(b,10);
//Элементу массива b с номером 0 присвоили значение Привет!.
b[0]:='Привет!';

var
r:record//Объединяющая переменная r.
i:integer;//Переменная i типа целое число integer.
s:string;//Переменная s типа строка string.
end;

//Переменной i входящей в r присваивается 5.
r.i:=5;
//v присваивается значение переменной i входящей в r.
//Теперь v равно 5.
v:=r.i;

a:array of record
c:char;
n:integer;
end;

var  a:array[0..255] of integer;
.........................................
for i:=0 to 255 do
a[i]:=0;
..................................
m:=0;
for i:=1 to 255 do
if a[i]>a[m] then m:=i;