Изменение строк матрицы А при условии, что на главной диагонали есть отрицательный эл-нт

[Fri]

Всем доброго времени суток. Недавно начал изучать дельфи и пока не всё понимаю. Нужно решить задачку, но примеров( записей) нет и протестировать её негде, поэтому прошу вашей помощи.

Условие задачи:Изменить все строки матрицы А, в которых отрицателен элемент главной диагонали: к каждому элементу i-й строки прибавляется элемент Ti из заданного массива T1,T2,T3....Tn. Подсчитать число измененных строк матрицы А.

Программу нужно написать в Borland Delphi.

Вот что у меня получилось:

Type
matr=array[1..4,1..4] of integer;
mas=array[1..4] of integer;
 
Var
i,j,k,n:integer;
A:matr
T:mas
 
begin
n:=StrToFloat(Edit1.Text)
A[i][j]:=StrToInt(StringGrid1->Cells[i+1][j+1]);
T[i]:=StrToInt(StringGrid2->Cells[i+1]);
k:=0    //Это будет кол-во измененных строк матрицы.
for i:=1 to 4 do
for j:=i to 4 do
If A[i][j]<0 then
begin
A[i][j]:=A[i][j]+T[i];
k=k+1
end;
Label1.Caption:=IntToStr(k);
end.

Какие у меня ошибки? Или программа вообще не такая?)

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

[Serge_Bliznykov]

у Вас почти всё неправильно. (и код даже компилироваться не будет! например, где точки с запятой после каждого оператора?!)

1) элемент главной диагонали это A[i, i] (т.е. индексы ОДИНАКОВЫ)

2) Вы НЕ переносите элементы из StringGrid1 и StringGrid2!!
Это нужно делать В ЦИКЛЕ! А где у Вас цикл?!

3) ну и на фоне первых двух ошибок, третья уже совсем маленькая (но тем не менее, важная): в StringGrid сначала указывается индекс СТОЛБЦА, а потом индекс СТРОКИ. в адресации массива - строго наоборот.