Как вывести записи с нужными параметрами? Опции

[Анастасия]

Задача:
Фамилия Имя Факультативы
Мат. Физ. Инф.
Павлов Серг true false true
Мисюченко Ира true true false
Сидорон Зоя false false true
Кладов Роман true false false
Создайте массив следующего содержания и структуры, выведите фамилии и имена школьников, которые не посещают факультатив по физике или по математике.

Var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,1] := 'Фамилия ';
 StringGrid1.Cells[2,1] := 'Имя';
 StringGrid1.Cells[3,1] := 'математика';
 StringGrid1.Cells[4,1] := 'физика';
 StringGrid1.Cells[5,1] := 'информатика';

  StringGrid1.Cells[1,2] := 'Иванов';
 StringGrid1.Cells[2,2] := 'Коля';
 StringGrid1.Cells[3,2] := 'да';
 StringGrid1.Cells[4,2] := 'да';
 StringGrid1.Cells[5,2] := 'нет';

  StringGrid1.Cells[1,3] := 'Петров';
 StringGrid1.Cells[2,3] := 'Вася';
 StringGrid1.Cells[3,3] := 'да';
 StringGrid1.Cells[4,3] := 'да';
 StringGrid1.Cells[5,3] := 'да';
 end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
for j:=2 to 3 do    begin
for i:=1 to 4 do
if (StringGrid1.Cells[3,j]= 'нет') or (StringGrid1.Cells[4,j]= 'нет')  then
StringGrid1.Cells[1,j]:= StringGrid1.Cells[1,j];
StringGrid1.Cells[2,j]:= StringGrid1.Cells[2,j];
end;end;

procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
begin
for j:=2 to 3 do    begin
for i:=1 to 4 do
StringGrid1.Cells[1,j]:='';
StringGrid1.Cells[2,j]:= '';
StringGrid1.Cells[3,j] := '';
StringGrid1.Cells[4,j] := '';
StringGrid1.Cells[5,j] := '';end;
end;
end.

Не знаю, как правильно задать Button2, чтобы вывелись только нужные записи.

[Анастасия]

Спасибо. Я все поняла. Выводится сообщения начались, но с "дырками". Я попыталась исправить ситуацию, изменив вот так код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,n,k:integer;
 y:array[1..4] of record
 name1:string[50]; end;
 const x: array[1 .. 4] of record
    name: string[50];
    math, phys, info: boolean;
 end = (                                                                               
    (name:'Павлов Серг';   math:true;  phys:false; info:true ),  
    (name:'Мисюченко Ира'; math:true;  phys:true;  info:false),
    (name:'Сидорон Зоя';   math:false; phys:false; info:true ),
    (name:'Кладов Роман';  math:true;  phys:false; info:false)
  );
begin
n:=0;
 for i:=1 to 4 do
  begin
   k:=0;
  if not(x[i].math) or not(x[i].phys)  then
   begin
     stringgrid1.cells[0,i]:=x[i].name;
  k:=k+1;
      if k=1 then begin n:=n+1; y[n].name1:=x[i].name;end;{создаю  в отдельную запись правильные ответы}
   end;
    end;

for i:=1 to 4 do  begin {вывожу  отдельную запись}
   stringgrid1.cells[0,i]:=y[i].name1; end;
end;
end.

и там, где вывожу ,после вывода появляется на следующей строке какая-то бяка. Набор символов разных шрифтов.  131____________.rar ( 7.34 килобайт ) Кол-во скачиваний: 322