как вывести индекс матрицы?

мне надо индексы равные нулю

program Project28;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

i,l,j,k,m,q,n : integer;

a: array [1..100, 1..100] of integer;

begin

try

q:=0;

m:=0;

writeln ('vvedite n');

readln (n);

begin randomize;

for I := 1 to n do

for j := 1 to n do

a[i,j]:=-5 + Random (10);

end;

k:=0;

for I := 1 to n do

begin;

for j := 1 to n do

begin;

write (a[i,j]:5, '');

k:=k+a[i,j];

end;

writeln;

end;

except

on E: Exception do

Writeln(E.ClassName, ': ', E.Message);

end;

readln;

end.

вывести индексы, элементы которых равны нулю