Вычислить к!,где к-количество нулевых элементов в четных столбцах матрицы А

uses
  crt;
const
  str=3;{количество строк}
  col=8;{количество столбцов}
var
  a:array [1..str,1..col] of integer;
  res,i,j,count:longint;
begin
  clrscr;
  count:=0;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      if (a[i,j]=0) and (j mod 2 =0) then
        inc(count);
      if j mod 2 = 0 then
        textcolor(2)
      else
        textcolor(0);
      if (a[i,j]=0) and (j mod 2 =0) then
        textcolor(4);
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  textcolor(0);
  res:=1;
  if count=0 then
    writeln('В четных столбцах вообще нет нулей!')
  else
  begin
    for i:=1 to count do
      res:=res*i;
    writeln('Результат: ',res,'. Всего в четных столбцах матрицы нулей: ',count)
  end;
end.

uses crt;
const m=3;n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
k,f:longint;
begin
k:=0;f:=1;
for i:=1 to m do
for j:=1 to n do
writeln(a[i,j]);
readln(a[i,j);
if (j mod 2=0) and a[i,j]=0 then k:=k+1;
f:=f*k;
writeln(f);
end.