Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10

program aaa;
uses crt;
type mas=array[1..5,1..5] of integer;
massiv=array[1..10] of integer;
procedure proc (var m:mas);
var
i,j:integer;
            begin
                 for i:=1 to 5 do
                     begin
                     for j:=1 to 5 do begin
                     m[i,j]:=random(5);
                     write(m[i,j],' ':1);
                     end;
                     writeln;
                     end;
            end;
var
m:mas;
i,j,s:integer;
m1:massiv;
          begin
             for s:=1 to 10 do
              begin
               m1[s]:=random(5);
               write(m1[s],' ':1);
              end;
writeln;
writeln;
proc(m);
writeln;
writeln;
for i:=1 to 5 do
    begin
       for j:=1 to 5 do
         begin
             if (i+j)mod 2 =0 then
             begin if m[i,j]=m1[s] then
                 m[i,j]:=0;
             end;
             write(m[i,j],' ':1);
         end;
         writeln;
    end;
end.

uses crt;
type matr=array[1..5,1..5] of integer;
     mas=array[1..10] of integer;
var  b:mas;
     a:matr;
 
procedure GenMatr (var z:matr);
var i,j:byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        z[i,j]:=random(9)+1;
end;
 
procedure PrintMatr(var z: matr);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        write(z[i,j]:2);
    writeln;
    end;
end;
 
procedure GenPrintMas(var x: mas);
var i: byte;
begin
for i:=1 to 10 do
    begin
    x[i]:=random(9)+1;
    write(x[i],' ');
    end;
writeln;
end;
 
procedure Change(var z: matr; x: mas);
var i,j,e,k: byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        for e:=1 to 10 do
            if ((i+j) mod 2 =0) and (z[i,j]=x[e])
               then z[i,j]:=0;
end;
 
begin
GenMatr (a);
writeln('Матрица');
PrintMatr(a);
writeln('Массив');
GenPrintMas(b);
Change(a,b);
writeln('Матрица после преобразования');
PrintMatr(a);
end.

procedure GenMatr (var z:matr);
var i,j:byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        z[i,j]:=random(9)+1;
end;
 
procedure PrintMatr(var z: matr);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        write(z[i,j]:2);
    writeln;
    end;
end;