И снова массивы!

[Ann_Sh]

Для данной целочисленной матрицы А[1..N, 1..N] найти номер строки, содержащей наибольшее число ненулевых элементов.
Соображала, соображала..да все никак не пойдет...застревает на строке a:array[1..N,1..N]of integer;. Где ошибка?

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..N,1..N]of integer;
i,j:integer;
kol,nc:integer;
begin
if StringGrid1.ColCount=StringGrid1.Ro wCount then
begin
for j:=1 to N do
for i:=1 to N do
kol:=0 //количество ненулевых элементов
if a[i,j]<>0 then kol[j]:=kol[j]+1;
end;
nc:=1; //наибольшее число ненулевых элеметнов
for j:=2 to N do
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
if kol[j]>nc[i] then nc:=j;
end;

[evg_m]

пропущеная строчка ?

const N=10;

[Ann_Sh]

ага..и пошли теперь вниз по ошибкам...теперь говорит if a[i,j]<>0 then kol[j]:=kol[j]+1;

[GetMax]

Так у вас Kol обьявленна как целочисленная переменная. Зачем вы ей индекс приписали?

if a[i,j]<>0 then kol:=kol+1;