В квадратной матрице найти количество элементов равных "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); readlnend.