[YVitaliy]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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.