Массив: Из массива студентов выбрать только студенток...

type stud=record
    fam: string[20];
    name:   string[20];
    middle:  string[20];
    pol:  string[20];
        end;
var
  Form1: TForm1;
  st:array[1..100] of stud;
   i:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with st[i] do
  begin
  fam:=Edit1.Text;
  name:=Edit2.Text;;
  middle:=Edit3.Text;
  pol:=ComboBox1.Text;
  Memo1.Lines.Add(fam+'  '+name+'  '+middle+'  '+pol);
  end;
end;
 procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=1 to 100 do
if st[i].pol='жен.' then
Memo2.Lines.Add(st[i].fam+'  '+st[i].name+'  '+st[i].middle);
end;
 
end.

type stud=record
    fam: string[20];
    name:   string[20];
    middle:  string[20];
    pol:  string[20];
        end;
var
  Form1: TForm1;
  st:array[1..100] of stud;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
inc(n);
with st[n] do
 begin
  fam:=Edit1.Text;
  name:=Edit2.Text;;
  middle:=Edit3.Text;
  pol:=ComboBox1.Text;
  Memo1.Lines.Add(fam+'  '+name+'  '+middle+'  '+pol);
 end;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to n do
if st[i].pol='æåí.' then
Memo2.Lines.Add(st[i].fam+'  '+st[i].name+'  '+st[i].middle);
end;