Паскаль.Сформировать одномерный массив А из элементов матрицы, кратных трём

[ICEART]

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

[Aristarh Dark]

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.

[ICEART]

Благодарю!!!