помогите со stringgrid в delphi

[aks]

Дана матрица размером m*n, определить количество и координаты
особых элементов матрицы. Элемент считается особым, если он больше
суммы остальных элементов своего столбца и при этом в его строке слева от него находятся элементы меньше него, а справа больше него.
Помогите найти ошибку в коде
массив вводится вручную, но при выполнении выдает: lable1.caption:='osobih netu' даже при том, что он есть.

procedure TForm1.Button1Click(Sender: TObject);
begin
for w:=1 to 4 do
for q:=1 to 4 do
a[w,q]:=StrToFloat(StringGrid1.Cells[w,q]);
for w:=1 to 4 do
for q:=1 to 4 do
sum[w]:=sum[w]+a[q,w];
for q:=1 to 4 do begin
for w:=1 to 4 do begin
if sum[q]<a[w,q] then
if (a[w,q]>a[w,q-1]) and (a[w,q]<a[w,q+1]) then
lable1.caption:='osobi'
else
lable1.caption:='osobih netu'
end;
end;
end;

From Stilet: Тег Code не забываем - код оформляем правильно

[alex_fcsm]

Вы сравнивает элемент с суммой элементов. Интересно, как он может быть больше суммы, если сам в нее включен? Наверное утверждение о том, что элемент больше суммы остальных элементов своего столбца выглядит

if x>(sum-x)

[aks]

тогда подскажите как найти max элемент в столбце, а то ячто-то туплю!

[Sazary]

Сообщение от aks

подскажите как найти max элемент в столбце

Допустим, надо найти максимум в первом столбце.

max := 1;  { считаем, что первый элемент - максимум }
for i:=2 to m do  { проходите по остальным элементам столбца }
  if a[i,1] > a[max,1] then  max := i;

Теперь в max индекс максимального элемента.

[aks]

все равно работает некорректно

procedure TForm1.Button1Click(Sender: TObject);
begin
for w:=1 to 4 do
for q:=1 to 4 do
a[w,q]:=StrToFloat(StringGrid1.Cells[w,q]);
max:=1;
for w:=2 to 4 do
if a[w,1]>a[max,1] then max:=w;
for q:=2 to 3 do begin
for w:=1 to 4 do begin
sum[w]:=sum[w]+a[q,w]-max;
if (max>sum[w]) and (a[w,q]>a[w,q-1]) and (a[w,q]<a[w,q+1]) then
label1.caption:='osbi netu'
else
label1.Caption:='osobi ['+IntToStr(q)+','+IntToStr(w)+']';
end;
end;
end;

[alex_fcsm]

if (a[w,q]>sum[w]-a[w,q]) and (a[w,q]<a[w,q+1]) then

строка проверка на особенность.
Конечно элемент должен быть максимумом в своей строке, но к чему эти сложности

[aks]

с эти все ясно, но

label1.Caption:='osobi ['+IntToStr(q)+','+IntToStr(w)+']';

выводит каждый раз одно и тоже значение

[Stilet]

label1.Caption:=label1.Caption+'osobi ['+IntToStr(q)+','+IntToStr(w)+']';

или

label1.Caption:=label1.Caption+'osobi ['+IntToStr(q)+','+IntToStr(w)+']'+chr(13);

[aks]

всем спасибо теперь все работае. тему можно закрывать.