Написать программу, формирующую матрицу, в которой единицы и нули расположены в шахматном порядке

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 Button1.Enabled := not(Length(Trim(Edit1.Text)) = 0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k, n: integer;
    A: array of array of integer;
begin
 if not TryStrToInt(Edit1.Text, n) or (n <= 0) then
  begin
   ShowMessage('Неверно указан размер матрицы');
   Exit;
  end;
 StringGrid1.RowCount := n;
 StringGrid1.ColCount := n;
 SetLength(A, n, n);
 k := 0;
 for i := 0 to n - 1 do
  begin
   if not(odd(n)) then k := 1 - k;
   for j := 0 to n - 1 do
    begin
     a[i, j] := k;
     StringGrid1.Cells[j, i] := IntToStr(a[i, j]);
     k := 1 - k;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b : boolean;
    i, j, n : integer;
begin
  n:=11;
  StringGrid1.RowCount := n;
  StringGrid1.ColCount := n;
  a:=true;
  for i := 0 to n - 1 do
    begin
      b:=a;
      for j := 0 to n - 1 do
        begin
          if b then StringGrid1.Cells[j, i] := '1'
          else      StringGrid1.Cells[j, i] := '0';
          b:= not b;
        end;
      a:= not a;
    end;
end;