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

Листинг программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
DrawGrid1: TDrawGrid;
SaveDialog1: TSaveDialog;
Button2: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
Button6: TButton;
Button3: TButton;
Button1: TButton;
DrawGrid2: TDrawGrid;
function Save(filename:string):boolean;
function Load(filename:string):boolean;
procedure Button1Click(Sender: TObject);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const n = 10; // количество нейронов (т.е. количество чисел 0-9)
m = 20;// размерность рисунка
c = 100;
var
Form1: TForm1;
matrica: array[0..m-1,0..m-1] of integer;
wmatrica: array[0..n-1,0..m-1,0..m-1] of real;
vixmatrica: array[0..n-1] of Shortint; //полученный выход персептрона
result, index_Z: integer; //количество положит.рез и индекс обучаемого персептрона
mistake: array[0..n-1]of shortint; // размер ошибки (теоретический вектор-фактический вектор)
i, j, z : integer;
implementation
uses Unit2, Unit3;
{$R *.dfm}
....
...
..
.

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