Элементы матрицы, кратные трем, записать в одномерный массив

program zad_1;
const
n=10;
m=20;
var
i,j,k,max:integer;
a:array[1..n,1..m] of integer;
b:array[1..1000] of integer; {не знаем, сколько будет чисел, кратным 3, поэтому подстрахуемся и 
ограничимся тысячей, потом если что увеличите или уменьшите диапазон}
begin
for i:=1 to n do
 for j:=1 to m do read(a[i,j]);{считываем двумерный массив}
k:=1;                                
for i:=1 to n do
 for j:=1 to m do
  if a[i,j] mod 3=0 then {проверяем члены двумерного массива на кратность 3, если да то...смотрим ниже}
   begin
     b[k]:=a[i,j];
     max:=k; { в max записываем последнее(наибольшее) значение k, чтобы потом вывести массив в ответ}
     inc(k);
   end; 
for k:=1 to max do write(b[k]);{выводим одномерный массив в ответ}
end.

b:array[1..m*n] of integer;

program zad_1;
uses crt;
const
n=10;
m=20;
var
i,j,k,max:integer;
a:array[1..n,1..m] of integer;
b:array[1..n*m] of integer;
begin
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50); {вводить с клавы 200 чисел как-то влом}
    write(a[i,j]:3);
   end;
  writeln;
 end;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 3=0 then {проверяем члены двумерного массива на кратность 3, если да то...смотрим ниже}
   begin
     inc(k);
     b[k]:=a[i,j];
    end;
if k=0 then write('Нет элементов, кратных 3')
else
 begin
  writeln('Массив элементов, кратных 3');
  for i:=1 to k do write(b[i]:4);{выводим одномерный массив в ответ}
 end;
end.