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

const n=5;m=7; var a: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.