Дана информация о 20 сотрудниках фирмы (фамилия, зарплата и пол). Определить фамилии мужчины и женщины, имеющих наимен

unit Unit2;
 
interface
 
uses
  System.iOUtils,System.StrUtils, SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Memo.Types,
  FMX.StdCtrls, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo,
  Data.Bind.ObjectScope, Data.Bind.DBScope, Data.Bind.DBXScope, System.Rtti,
  FMX.Grid.Style, FMX.Grid, FMX.Edit;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    edNm: TEdit;
    edO1: TEdit;
    btSave: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    Button3: TButton;
    Brush1: TBrushObject;
    Check: TGroupBox;
    Edit1: TEdit;
    Button4: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure btSaveClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    {procedure Button3Click(Sender: TObject);}
 
    {procedure Button2Click(Sender: TObject);}
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type Proba= record
  u:string[15];
  Nm, l:string[10];
  O:array[1..3] of integer;
  x:array[1..15] of integer;
   z :boolean;
 
end;
var
Form2: TForm2;
fp:File of Proba;
fp2:Text;
L,L1, L2,Pu,So:String;
Rec:Proba;
i,n: integer;
 m:boolean;
implementation
{$R *.fmx}
procedure TForm2.btSaveClick(Sender: TObject);
 
begin
assignfile(fp,L1);
reset(fp);
  if (edNm.Text <> '') and (edO1.Text <> '')
   then
 
         begin
         Rec.Nm:=edNm.Text;
         Rec.O[1]:=strtoint(edO1.Text);
         Rec.u:=edo1.Text;
         Rec.l:=edit1.Text;
 
         i:=filesize(fp);
         seek(fp,i);
         write(fp,Rec);
         closefile(fp);
         end
         else
         showmessage('Не все данные');
end;
procedure TForm2.Button1Click(Sender: TObject);
 
begin
assignFile(fp2,L2);
Rewrite(fp2);
assignFile(fp,L1);
reset(fp);
n:=FileSize(fp);
for i:=0 to n-1 do
begin
  seek(fp,i);
  read(fp, Rec);
  if Rec.O[1]>Rec.O[3] then
  Pu:=''
  else
   Pu:='';
  So:=Rec.u +', ' +Rec.Nm + ', '+rec.l+', ' + Pu ;
 
  write(fp2,So);
end;
closefile(fp);
closefile(fp2);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
 
    AssignFile(fp2, L2);
    Reset(fp2);
 
    while (not EOF(fp2)) do begin
      Read(fp2, So);
      memo1.lines.add(So);
 
    end;
    CloseFile(fp2);
end;
 
procedure TForm2.Button3Click(Sender: TObject);
var
Find:string;
i:integer;
begin
 Find:=memo1.Text;
For i:=0 to Memo1.Lines.Count-1 do
If Pos(Find, Memo1.Lines.Text)>0
Then
Begin
 Memo1.SetFocus();
 Memo1.SelStart:=Pos(Find,Memo1.Lines.Text)-1;
 Memo1.SelLength:=Length(Find);
Memo1.ClearSelection;
end;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 L1:= TPath.GetDocumentsPath + PathDelim + 'input.txt';
L2:= TPath.GetDocumentsPath + PathDelim + 'output.txt';
assignfile(fp,L1);
assignFile(fp2,L2);
rewrite(fp);
closeFile(fp);
rewrite(fp2);
closeFile(fp2);
end;
end.

AssignFile
Reset