Двумерный масив

[Gammi]

Дан двумерный массив. Найти номера строк, все элементы которых равны 0. Если таких нет, то вывести сообщение. Выведите исходный массив в виде матрицы. Использовать подпрограммы.

[Stilet]

Покажи как вводишь массив.
Я в свою очередь предлагаю подпрограмму:

function isNuller(i:integer) var j:byte;
begin
 for j:=1 to n do if a[i,j]<>0 then begin isNuller:=false;exit;end;
 isNuller:=true;
end;

Где а - тот самый массив, n - кол-во его колонок