В квадратной матрице найти количество элементов равных "0"

Программа на Паскаль при заданных условиях

const

n = 3;

var

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

m, k, c: integer;

i, j: byte;

begin

k : = 4;

for i : = 1 to n do

begin

m : = 0;

for j : = 1 to n do

begin

write ('a[', j,',', i,'] = ');

readln (a[j, i]);

if a[j, i] = 0 then inc (m)

end;

writeln ('V stroke ', i,' ', m,' nulevij chisel!');

if (k > m) and (m 0) then begin k : = m; c : = i end;

end;

writeln ('V stroke ', c,' menshe vsego nuleviy elementov!');

writeln ('Ij ', k);

readln

end.