[YVitaliy]

К первому, как я понял:

Код:

procedure TForm5.Button4Click(Sender: TObject);
 var
 i,j:byte;
 A:array [1..100,1..100] of Integer;
 b: Boolean;
 n,m:Byte;
 begin
 m:=SpinEdit2.Value;
 N:=SpinEdit1.Value;
 for j := 1 to m do
 begin
 b:=True;
 for i:=1 to (N div 2) do
 begin
 if a[i,j]<>a[n-i+1,j] then
 b:=False;
 end;

 if b = False then
 StringGrid2.Cells[0, j-1] := '0'
 else
 StringGrid2.Cells[0, j-1] := '1';
 end;

 end;
 end.