Сделайте блок-схему по лабе.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
function FreqSign(const InputText: string): string;
var
  Freqs: array [0..255] of Integer; // частота появления первых символов
  I: Integer;                       // счётчик
  PrevSign: Char;                   // предыдущий (I - 1)-ый символ 
  MaxFreq: Integer;                 // максимальная частота появления символа
begin
 
  // инициализация
  for I := 0 to 255 do Freqs[I] := 0;
  PrevSign := ' ';
 
  // получаем частоты всех первых символов
  for I := 1 to Length(InputText) do
  begin
    if (InputText[I] <> ' ') and (PrevSign = ' ') then
      Freqs[Ord(InputText[I])] := Freqs[Ord(InputText[I])] + 1;
    PrevSign := InputText[I];
  end;
 
  // ищем максимальную частоту (или частоты)
  MaxFreq := 0;
  for I := 0 to 255 do
    if Freqs[I] > MaxFreq then
    begin
      MaxFreq := Freqs[I];
      //MaxI := I;
      Result := Char(I);
    end else
      if Freqs[I] = MaxFreq then
         Result := Result + Char(I);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FreqSign(Edit1.Text));
 
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.