Нейронные сети

Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
Button1: TButton;
DrawGrid2: TDrawGrid;
Button2: TButton;
Button5: TButton;
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button1Click(Sender: TObject);
procedure DrawGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure DrawGrid2SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
function Save(filename:string):boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
mat=array[0..19,0..19] of integer;
matr=array[0..19,0..19] of real;
var
Form1: TForm1;
matrica:mat;
wmatrica:matr;
implementation

{$R *.dfm}

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with (Sender as TDrawGrid).Canvas do
begin
if matrica[ARow,ACol]=1 then Brush.Color:=clBlue;
FillRect(rect);
end;
end;

procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
matrica[Arow,Acol]:=abs(1-matrica[Arow,Acol])
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
xmin,xmax,ymin,ymax:integer;
tmp:mat;
const n=20;
begin
xmin:=n;
xmax:=-1;
ymin:=n;
ymax:=-1;
.......
.....
...
..
.

Листинг программы
Формы исполняемого приложения