ЗАДАЧА С МАТРИЦАМИ))))

Ну и что ты делал, что не получилось?

как описать матрицы? и ввести данные?

как то так:
a,b - входные матрицы, с - выходная

{$R *.dfm}
Procedure prois(A,B:mat,n:integer)
var c:mat;
n:int;
var I,J:Integer;
k:=real;
begin
for I:=1 to n do;
for J:=1 to n do;
c[I,J]:=B[I,J];
k:=0;
begin
for I:=1 to n do;
k:=A[J,I]+k;
for z:=1 to n do;
c[I,Z]:=c[I,Z]*k;
k:=0
end;
TYPE mat w=array[1...5, 1...5]of real;

procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:mat;
n,m:int;
begin
n:=strtoint(Edit1.Text);
for I:=1 to n do;
for J:=1 to n do;
A[I,J]:=strtofloat(SG1.Cells[j-1,i-1]);
for I:=1 to n do;
for J:=1 to n do;
B[I,J]:=strtofloat(SG2.Cells[j-1,i-1]);
prois(A,B,n,C,m);
for I:=1 to n do;
for J:=1 to n do;
SG3.Cells[j-1,i-1]:=Floattostr(C[I,J]);




end.

что неправильно в ней??? так как программа выдаёт много ошибок

во первых, конструкция вида

выполнит c[I,J]:=B[I,J]; только один раз для случая I=J=N, так как у вас после do в циклах стоит ;
во вторых, приведите свой код здесь еще раз внутри тега CODE, чтоб он был читабелен.
Для этого перейдите в расширенный режим сообщения (кнопка справа внизу), выделите свой написанный код и нажмите кнопочку #

TYPE matr=array[1..3, 1..3]of real;
Procedure TForm1.Button1Click(Sender: TObject);
var A,B,C:matr;
I,J,k:integer;
begin
for I:=1 to 3 do
for J:=1 to 3 do
begin
A[I,J]:=strtofloat(StringGrid1.Cells[j-1,i-1]);
B[I,J]:=strtofloat(StringGrid2.Cells[j-1,i-1]);
end;
for I:=1 to 3 do
begin
for J:=1 to 3 do
begin
C[I,J]:=0;
for k:=1 to 3 do
C[I,J]:=C[I,J]+A[I,k]*B[k,J]
end;
end;
for I:=1 to 3 do
for J:=1 to 3 do
StringGrid3.Cells[j-1,i-1]:=Floattostrf(C[I,J],fffixed, 6,1);
end;
end.

Это программа для вычисления матрицы)))) скажите что как сделать так чтоб для вычисления проводилось в виде подпрограммы процедура))) и как найти количество отрицательных элементов в новой матрице С