В каждой строке матрицы Z обнулить максимальный по абсолютной величине элемент, если его нет в массиве X

{Даны целочисленная матрица Z[1:n, 1:m] и целочисленный массив X[1:k]. В каждой 
строке матрицы Z обнулить максимальный по абсолютной величине элемент, если его 
нет в массиве X. }
const
  n = 5;
  m = 6;
  k = 8;
 
var
  Z: array [1..n, 1..m] of integer;
  x: array [1..k] of integer;
  maxi, maxj, max, i, j: integer;
  q: set of integer;
 
begin
  randomize;
  q := [];
  writeln('Array Z: ');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      z[i, j] := -n div 2 + random(m);
      write(z[i, j]:5);
    end;
    writeln;
  end;
  writeln('Array X: ');
  for i := 1 to k do 
  begin
    x[i] := -k div 2 + random(k);
    write(x[i]:4);
    include(q, x[i]);
  end;
  writeln;
  writeln('Set of Q: ');
  writeln(q);
  for i := 1 to n do
  begin
    max := abs(z[i, 1]);
    maxi := i;
    maxj := 1;
    for j := 1 to m do
      if abs(z[i, j]) > max then 
      begin
        max := abs(z[i, j]);
        maxi := i;
        maxj := j;
      end;
    writeln('Max в  ', i, '-й строке: ', max);
    if not (max in q) then
    begin
      z[maxi, maxj] := 0;
    end;
  end;
  writeln('New array Z: ');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
      write(z[i, j]:5);
    writeln;
  end;
  
end.