Написать программу ,которая вводит в двумерный массив z[6: 7] только четные числа

Программа может выглядеть так:

uses Crt;
const n=6;
        m=7;
type Mas=array [1..n, 1..m] of integer;
var Z: Mas;
    i,j: integer;
begin
ClrScr;
for i:=1 to  n do
  begin
  for j:=1 to m do
     begin
      Z[i,j]:=2*(10+random(40));
      Write (Z[i,j]:6);
     end;
  WriteLn;
  end;
  WriteLn;
ReadLn;
end.