Программа "Ход конём" на Pascal ABC.

uses vcl;
 const
  N=3;
  M=4;
  fcol = clWhite;
  ncol=2;
  empty=0;
  normal=1;
  accent=2;
  traveled=3;
  listColor : array [1..ncol] of integer
    = (clRed, clLtGray);
//$VCLDESIGN+
var
  Form1: Form;
  MainMenu1: MainMenu;
  PaintBox1: PaintBox;
//$VCLDESIGN-
  Form2: Form;
  TextLabel1: TextLabel;
  Button1: Button;
  dx, dy, xL, xR, yU, yD : integer;
//-----
type
  TCell=class
    ns, np, color, status : integer;
    constructor Create(_ns, _np : integer);
    procedure Draw;
end;
//-----
  constructor TCell.Create(_ns, _np : integer);
  begin
    ns:=_ns;
    np:=_np;
    status:=empty;
end;
//-----
  procedure TCell.Draw;
  var x, y : integer;
  begin
    x:=xL+(np-1)*dx;
    y:=yU+(ns-1)*dy;
    case status of
      empty :
      begin
        PaintBox1.Pen.Color:=clBlack;
        PaintBox1.Brush.Color:=fcol;
        PaintBox1.Rectangle(x,y,x+dx+1,y+dy+1);
      end;
      normal :
      begin
        PaintBox1.Pen.Color:=clWhite;
        PaintBox1.Brush.Color:=clWhite;
        Sleep(200);
      end;
      accent :
      begin
        PaintBox1.Pen.Color:=clWhite;
        PaintBox1.Pen.Width:=3;
        PaintBox1.Line(x+dx div 3, y+dy div 3,
                       x+2*dx div 3, y+2*dy div 3);
        PaintBox1.Line(x+2*dx div 3, y+dy div 3,
                       x+dx div 3, y+2*dy div 3);
        PaintBox1.Pen.Width:=1;
      end;
    end;
  end;
//-----
type
  TBoard = class
    mcell : array [0..N+1, 0..M+1] of TCell;
    vs, vp, count, numfree : integer;
    IsSelect : boolean;
    constructor Create;
//    procedure Add;
//    procedure Delete(ns,np: integer);
//    procedure Reaction(ns, np: integer);
//    procedure Check(ns, np: integer);
    procedure NewGame;
  end;
//-----
  constructor TBoard.Create;
  var ns, np : integer;
  begin
    count:=0;
    numfree:=N*M;
    IsSelect:=false;
    for ns:=0 to N+1 do begin
      for np:=0 to M+1 do begin
        mcell[ns,np]:=TCell.Create(ns,np);
        if (ns>=1) and (np>=1) and (ns<=N) and (np<=M)
        then mcell[ns,np].Draw;
      end;
    end;
  end;
//-----
  procedure TBoard.NewGame;
  var ns, np : integer;
  begin
    count:=0;
    numfree:=N*M;
    IsSelect:=false;
    for ns:=0 to N+1 do begin
      for np:=0 to M+1 do begin
        mcell[ns,np].status:=0;
        if (ns>=1) and (np>=1) and (ns<=N) and (np<=M)
        then mcell[ns,np].Draw;
      end;
    end;
  end;
//-----
var
  board : TBoard;
  
procedure Form1OnClick;
begin
 
end;
 
procedure MainMenu1_1_1OnClick;
begin
 
end;
 
procedure MainMenu1_1_2_1OnClick;
begin
 
end;
 
procedure MainMenu1_1_2_2OnClick;
begin
 
end;
 
procedure MainMenu1_1_2_3OnClick;
begin
 
end;
 
procedure MainMenu1_2OnClick;
//---------------
begin
  Form2.Show;
end;
procedure Button1OnClick;
begin
  Form2.close;
end;
//-------------------
procedure InitControls;
begin
  Form1:= Form.Create(0,0,456,409);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Hod konem','');
  MainMenu1:= MainMenu.Create;
  Form1.Menu:= MainMenu1;
  PaintBox1:= PaintBox.Create(Form1,24,24,249,225);
  PaintBox1.InitControl(True,True,alNone,crDefault,0,'0','');
  MainMenu1.Add('Menu');
  MainMenu1.items[1].Add('Novaya igra',MainMenu1_1_1OnClick);
  MainMenu1.items[1].Add('Vibor polya');
  MainMenu1.items[1].items[2].Add('3x4',MainMenu1_1_2_1OnClick);
  MainMenu1.items[1].items[2].Add('6x6',MainMenu1_1_2_2OnClick);
  MainMenu1.items[1].items[2].Add('8x8',MainMenu1_1_2_3OnClick);
  MainMenu1.Add('O programme',MainMenu1_2OnClick);
  Form1.OnClick:=Form1OnClick;
  Form1.Position:= poScreenCenter;
  Form1.Show;
  Form2:= Form.Create(0,0,514,257);
  Form2.InitControl(True,False,alNone,crDefault,clBtnFace,'O programme','');
  TextLabel1:= TextLabel.Create(Form2,138,16,140,21);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'Programma "Hod Konem"','');
  Button1:= Button.Create(Form2,200,132,105,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Zakrit okno','');
  TextLabel1.Font.Name:= 'Times New Roman';
  TextLabel1.Font.Size:= 14;
  Button1.OnClick:=Button1OnClick;
  Form2.Position:= poScreenCenter;
end;
 
var k : integer;
begin
  InitControls;
  with PaintBox1 do begin
    dx:=(Width-20) div M;
    dy:=(Height-20) div M;
    xL:=Left-10; xR:=xL+N*dx;
    yU:=Top-10;  yD:=yU+M*dy;
  end;
  board:=TBoard.Create;
end.