Сформировать одномерный массив А из элементов матрицы, кратных трём. Найти А[минимум] и его номер. Результаты вывести в общепринятом виде — Pascal(Паскаль)

program prog;

const
  matX = 10;
  matY = 10;

var
  matrix: array [1 .. matX, 1 .. matY] of Integer;
  vector: array [1 .. matX * matY] of Integer;
  counter, i, j, min: Integer;
  PosInVector, PosInMatrixX, PosInMatrixY: Integer;

begin
  counter := 1;
  min := 30000;
  PosInVector := 0;
  PosInMatrixX := 0;
  PosInMatrixY := 0;
  for i := 1 to matX do
    for j := 1 to matY do
    begin
      matrix[i, j] := Random(30000);
      if ((matrix[i, j] / 3) = (matrix[i, j] div 3)) and (matrix[i, j] > 0) then
      begin
        vector[counter] := matrix[i, j];
        if vector[counter] < min then
        begin
          min := vector[counter];
          PosInVector := counter;
          PosInMatrixX := i;
          PosInMatrixY := j;
        end;
        inc(counter);
      end;
    end;
  WriteLn('Min element value:', min);
  WriteLn('Position in vector:', PosInVector);
  WriteLn('Position in matrix X:', PosInMatrixX, ' Y:', PosInMatrixY);
  Readln;

end.