не пойму ошибку

[Владимир Чернов]

Переменные вводить и выводить с помощью компонента TEdit, массивы – c помощью компонента TStringGrid, в котором 0-й столбец и 0-ю строку использовать для отображения индексов массивов. Вычисления выполнять, после нажатия кнопки типа TВutton. В местах возможного возникновения ошибок использовать конструкции для обработки исключительных ситуаций.

ЗАДАНИЕ:
Задана матрица A, размером NxM. Получить массив B, присвоив его k-му элементу значение
максимального элемента в k–от столбце матрицы А.




Не могу решить не знаю как. заранее спасибо за помощь!!! нужно срочно.

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


procedure TForm1.Edit1Change(Sender: TObject);
var i: integer;
begin
with StringGrid1 do begin
RowCount := StrToIntDef(Edit1.Text,1)+1;
StringGrid2.RowCount := RowCount;
ColCount := StrToIntDef(Edit2.Text,1)+1;
for i := 1 to RowCount-1 do
Cells[0,i] := IntToStr(I);
for i := 1 to ColCount-1 do
Cells[i,0] := IntToStr(I);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j, X: integer;
begin
with StringGrid1 do
for i := 1 to RowCount-1 do begin
X := StrToIntDef(Cells[i,1],0);
for j := 2 to ColCount-1 do
X := Max(X,StrToIntDef(Cells[i,j],0));
StringGrid2.Cells[0,i] := IntToStr(X);
end;
end;
end.

[BoozZzilla]

procedure TForm1.Button1Click(Sender: TObject);
var i,j, X: integer;
begin
  with StringGrid1 do
    for i := 1 to RowCount-1 do begin
      X := StrToIntDef(Cells[i,1],0);
      for j := 2 to ColCount-1 do
        If X<StrToIntDef(Cells[i,j],0) then X:=StrToIntDef(Cells[i,j],0);
      StringGrid2.Cells[0,i] := IntToStr(X);
    end;
end;
end.

Почему то у вас значение из второго эдита берется в обработчике первого, тогда уж сразу проверять надо заполнен ли второй эдит. С исключительными ситуациями ничего вам не подскажу.
А какая ошибка то??