оконное приложение

[Алексадр Демин]

здавствуйте, это моя задача:
Для каждого столбца матрицы вычислить среднее арифметическое значение элементов, меньших первого элемента этого столбца.

вот код программы:

procedure TForm1.Button1Click(Sender: TObject);
{обрабатывает нажатие кнопки "Ввод n,m"}
Var i,n,m:integer;
begin
n:=StrToInt(Edit1.Text);{ считали из компонент Edit1}
m:=StrToInt(Edit2.Text); {и Edit2 значения n и m}
StringGrid1.RowCount:=n+1;{задали число строк и }
StringGrid1.ColCount:=m+1; {столбцов StringGrid1}
for i:=1 to n do {написали номера строк в фиксированном}
StringGrid1.Cells[0,i]:=IntToStr(i);{ столбце StringGrid1}
for i:=1 to m do { написали номера столбцов в фиксированной }
StringGrid1.Cells[i,0]:=IntToStr(i);{строке StringGrid1}
end;

procedure TForm1.Button2Click(Sender: TObject);
Var i,j,K,M,n:Integer;{счетчики} S,Z:real;
A:array of array of real;{исходная матрица}
B:array of real;
begin
SetLength(a,n,m);{распределение памяти под массивы a}
SetLength(b,n); {и s }
for i:=1 to n do {в цикле считываем из ячеек компоненты}
for j:=1 to m do {StringGrid1 значения элементов матрицы}
if StringGrid1.Cells[j,i]='' then {если ячейка пустая}
a[i-1,j-1]:=0 {то элемент матрицы равен нулю}
else
a[i-1,j-1]:=StrToFloat(StringGrid1.Cells[j,i]);
{закончен ввод матрицы, далее обработка}
k:=0;S:=0;
for i:=0 to n-1 do
begin
b[i]:=0;
for j:=0 to m-1 do
begin
if A[i,j]<a[1,j] then
begin
S:=S+a[i,j];
K:=K+1;
B[i]:=Z;
end;
end;
end;

if K=0 then
B[i]:=0 else
begin
Z:=S/K;
B[i]:=Z;
end;
for i:=0 to n-1 do {в цикле записываем в ячейки StringGrid2}
StringGrid2.Cells[0,i+1]:=FloatToStr(B[i]);
end;
end.

вычисления не производятся, кнопка 2 не работает(подскажите,пожалуйста,в чем ошибка?

[Mad_Cat]

подскажите,пожалуйста,в чем ошибка?

не назначено событие onClick для кнопки