Дан двумерный массив А, состоящий из N строк и M столбцов. Удалить столбец, содержащий минимальный элемент массива некратный 4

const
  n = 5;
  m = 6;
var
  a : array[1..n, 1..m] of integer;
  i, j, min, jm : integer;
begin
  min := 1000;
  randomize;
  writeln('исходная матрица:');
  for i := 1 to n do
  begin 
    for j := 1 to m do
    begin
      a[i,j] := random(50) - 25;
      write(a[i,j]:4);
      if (a[i,j] mod 4 <> 0) and (a[i,j] < min) then
      begin
        min := a[i,j];
        jm := j
      end
    end;
    writeln    
  end;
  writeln('удаляем столбец: ', jm);
  for i := 1 to n do
  begin
    for j := jm to m - 1 do
      a[i,j] := a[i, j+1];
    a[i,m] := 0
  end;
  for i := 1 to n do
  begin
    for j := 1 to m-1 do
      write(a[i,j]:4);
    writeln
  end
end.