Составить процедуру, которая в двумерном массиве заменяет четные элементы на нули. Проверить будут ли равны два массива А и В после применения к ним данной процедуры — Pascal(Паскаль)

procedure SetNull(n,m:integer);
var i,j:integer;
begin
  for i:=1 to n do
   for j:=1 to m do
   begin
      if A[i,j] mod 2 = 0 then A[i,j]:=0;
      if B[i,j] mod 2 = 0 then B[i,j]:=0;
   end;
end;
function Test(n,m:integer):boolean;
var i,j:integer;
    res:boolean;
begin
res:=true;
  for i:=1 to n do
   for j:=1 to m do
    begin
      if A[i,j]<>B[i,j] then begin res:=false; break; end;
    end;
    Result:=res;
end;