Вывести данные в табличной форме для тех студентов, чьи имена начинаются с "А ".

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
StringGrid1: TStringGrid;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Label8: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type Tgads=Record
Datums,Menesis,Gads:integer;
end;
type TSkola=record
vards,uzvards:string;
dz_gads:Tgads;
end;

var
Form1: TForm1;
var n:integer;
var skola: array[1..20]of TSkola;
d:TSkola;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.RowCount:=n+2;
StringGrid1.Cells[1,0]:='Vards';
StringGrid1.Cells[2,0]:='Uzvards';
StringGrid1.Cells[3,0]:='Gads';
StringGrid1.Cells[0,1]:='1';

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=n+1;
with skola[n] do
begin
vards:=Edit1.Text;
uzvards:=Edit2.Text;
try
dz_gads.Datums:=StrToInt(Edit3.Text);
dz_gads.Menesis:=StrToInt(Edit4.Text);
dz_gads.Gads:=StrToInt(Edit5.Text);
except
on EConvertError do
ShowMessage('Nepareiza ievadisanas forma')
end

end;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
StringGrid1.RowCount:=n+2;
for i:=1 to n do
begin
StringGrid1.Cells[0,i]:=IntToStr(i)+'.';
with skola[i] do
begin
StringGrid1.Cells[1,i]:=vards;
StringGrid1.Cells[2,i]:=uzvards;
StringGrid1.Cells[3,i]:=IntToStr(dz_gads.Datums)+'.'+IntToStr(dz_gads.Menesis)+'.'+IntToStr(dz_gads.Ga ds);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var i,count:integer;
begin
count:=0;
for i:=1 to n do
if (skola[i].dz_gads.menesis=2) then inc(count);
Label8.Caption:=IntToStr(count);
end;

end.