Для каждого символа заданного текста указать, сколько раз он встречается в тексте

unit ZadanieGUIpr082unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus,LConvEncoding,LazUTF8;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    Memo2: TMemo;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.MenuItem2Click(Sender: TObject);
{Процедура-обработчик пункта меню "Файл" подпункта меню "Открыть"}
begin
  { Диалоговое окно получает путь к папке с файлами и имя нужной папки}
  OpenDialog1.InitialDir:= ExtractFilePath(Application.ExeName) + 'res';
  {Диалоговое окно получает пустую строку в имени файла}
  OpenDialog1.FileName:= '';
  { Если Диалоговое окно открыто успешно, то ...}
  if OpenDialog1.Execute then
    begin
      {Загрузить информацию из выбранного файла в компонент Memo1}
      //Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
      Memo1.Text := WinCPToUTF8(ReadFileToString(OpenDialog1.FileName));
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  Memo2.Clear;
end;
 
procedure TForm1.MenuItem3Click(Sender: TObject);
{Процедура-обработчик пункта меню "Файл" подпункта меню "Выход"}
begin
  Close;
end;
 
 
procedure TForm1.MenuItem6Click(Sender: TObject);
{Процедура-обработчик пункта меню "Анализ текста" подпункта меню "Частотность символов"}
var
  i,n: integer;
  s: string;
  a: array [1..255] of byte;
begin
  for i:= 1 to 255 do
    a[i]:= 0;
  s:= UTF8ToWinCP(Memo1.Text);
  n:= length(s);
  for i:= 1 to n do
    {Перебираются индексы элементов строки (символы текста) s[i]. Для каждой буквы
     находится ее код ord(s[i]), который в свою очередь подставляется в индекс
     элемента массива a[ord(s[i])]. Элемент с этим индексом увеличивается на единицу}
    inc(a[ord(s[i])]);
 
  Memo2.Font.Size:= 12;
  Memo2.Lines.add('Частотность символов: ');
  for i:= 1 to 255 do
    Memo2.Lines[i]:= WinCPToUTF8(String(Chr(i)) + ' - ' + IntToStr(a[i]));
end;
 
end.