procedure TForm1.Button1Click(Sender: TObject);
var
   i,j:integer;
begin
     SetLength(game_squre,StrToInt(Edit1.Text),StrToInt(Edit2.Text));
     for i:=0 to StrToInt(Edit1.Text)-1 do
         for j:=0 to StrToInt(Edit2.Text)-1 do begin
             game_squre[i,j]:=0;
             if (i=StrToInt(Edit5.Text)-1) and (j=StrToInt(Edit6.Text)-1) then
                game_squre[i,j]:=1;
             if (i=StrToInt(Edit7.Text)-1) and (j=StrToInt(Edit8.Text)-1)  then
                game_squre[i,j]:=2;
         end;
     for i:=0 to StrToInt(Edit1.Text)-1 do
         for j:=0 to StrToInt(Edit2.Text)-1 do begin
             ShowMessage(IntToStr(game_squre[i,j]));
         end;