Дана вещественная матрица А (6,5). Вычислить произведение всех отрицательных элементов матрицы. Вычисление произведения отрица-тельных элементов матрицы оформить в виде функции.
вот я написала программу и она не работает..

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
matr=array [1..6,1..5]of integer;
var // Îïèñàíèå ïåðåìåííûõ îñíîâíîé ïðîãðàììû
i,j,code,s,n,m:integer;
number, e:string;
b:matr;
function proiz(n:integer;a:matr):integer;
var
i,j,s:integer; //îïèñàíèå ïåðåìåííûõ ôóíêöèè
sum:string;
begin
s:=1;
for i:=1 to 6 do //Âû÷èñëåíèå â öèêëå ñóììû do
begin
e:='';
for j:=1 to 5 do
begin
e:=e+' '+ IntToStr(a[i,j]);
end;
If a[i,j]<0 then s:=a[j,i] * s end;


//str(s,sum); //Ïåðåâîä çíà÷åíèÿ ñóììû â ñòðîêîâóþ ïåðåìåííóþ
memo1.Lines.Add (IntToSTR(s)); //âûâîä ðåçóëü-òàòà
end;

{Âûçûâàþùàÿ ïðîãðàììà (îñíîâíàÿ)}
begin // Íà÷àëî îñíîâíîé ïðîãðàììû
val (edit1.Text,n,code);
for i:=1 to 6 do //Ââîä ýëåìåíòîâ ìàññèâà
for j:=1 to 5 do
begin
number:=inputbox('Ââîä ýëåìåíòîâ ìàññèâà','Ââåäè ÷èñëî','0');
val(number,b[i,j],code);
end;
proiz(n,b); //Îáðàùåíèå ê ôóíêöèè
end;
end.