Поиск популярных ФИО

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Grids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
 
type
TStudent = record
  FName: string;
  LName: string;
  MName: string;
  Gender: string;
end;
 
var
Students: array of TStudent;
i, j, n, maxCount,count: integer;
fName, mName, lName, mostFName, mostMName: string;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n := StringGrid1.RowCount - 1;
  SetLength(Students, n);
  for i := 0 to n-1 do
  begin
    Students[i].LName := StringGrid1.Cells[0, i+1];
    Students[i].FName := StringGrid1.Cells[1, i+1];
    Students[i].MName := StringGrid1.Cells[2, i+1];
    Students[i].Gender := StringGrid1.Cells[3, i+1];
  end;
 
  maxCount := 0;
  for i := 0 to n-1 do
  begin
    if Students[i].Gender = 'м' then
    begin
      fName := Students[i].FName;
      mName := Students[i].MName;
      if (fName <> '') and (mName <> '') then
      begin
        count := 0;
        for j := 0 to n-1 do
        begin
          if (Students[j].Gender = 'м') and (Students[j].FName = fName) and (Students[j].MName = mName) then
            count := count + 1;
        end;
        if count > maxCount then
        begin
          maxCount := count;
          mostFName := fName;
          mostMName := mName;
        end;
      end;
    end;
  end;
 
  for i := 0 to n-1 do
  begin
    if (Students[i].Gender = 'м') and (Students[i].FName = mostFName) and (Students[i].MName = mostMName) then
      Memo1.Lines.Add(Students[i].Fname);
  end;
end;
end.