Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А - Pascal - Ответ 3787424

uses crt;
const n=5;
      m=5;
      p=10;
type matr=array[1..n,1..m] of byte;
type arr=array[1..p] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  k:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    randomize;
    writeln('Массив');
    for k:=1 to p do
    begin
      b[k]:=+10+random(20);
      write(b[k]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
            end;
            begin
              For i:=1 to n do
              For j:=1 to m do
              For k:=1 to p do
               if a[i,j]=b[k] then 
               a[i,j]:=0;
               end;
            end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
 
            end.