Помогите написать программу (на паскаль)

Question

Составить подпрограмму для вычисления количества нулевых элементов I-ого столбца матрицы A(m,n).

Элёр Баходиров · Accepted Answer

program asd; 
var 
 a,b,c,d: integer; 
 z: array [1..5,1..5] of integer; 
 begin 
 writeln ('Введите элементы массива'); 
 for a:=1 to 5 do 
 begin 
 for b:=1 to 5 do 
 readln (z[a,b]); 
 end; 
 writeln ('Введите номер столбца (от 1 до 5)'); 
 readln (c); 
 for a:=1 to 5 do 
 if z[a,c]=0 then d:=d+1; 
 writeln ('Количество нулевых элементов ',c,' столбца = ',d); 
end.