дана матрица A размером M x N, где M, N заданные натуральные числа: распечатать все элементы, стоящие в четных таблицах
помогите решить пожалуйста.

constn=5;m=7;vara:array[1..n,1..m]of integer;i,j:integer;begin      for i:=1 to n do           begin                  for j:=1 to m do                       begin                           a[i,j]:=random(100);                           write(a[i,j]:4);                       end;                 writeln;          end;writeln;for i:=1 to n do  begin   for j:=2 to m do       if j mod 2=0 then           write(a[i,j]:4);     writeln;  end;end.