Из 2 двумерных массивов в одномерный массив.

Program P_2_v_1;
Uses crt;
Const m=3; n=2;
Type
     matrix=array[1..10,1..10] of integer;
     massiv=array[1..100] of integer;
Var
 a,b:matrix;
 c:massiv;
 i,j,t,r,k:integer;
Begin
 For i:=1 to n do
 For j:=1 to m do
  begin
 Write ('Введите a[',i,',',j,']: ');
 Read (a[i,j]);
 Write ('Введите b[',i,',',j,']: ');
 Read (b[i,j]);
  end;
  
  r:=2*m*n;      //Максимальный размер одномерного массива, в случае если все элементы двух матриц имеют 0
  t:=1;
 
  For i:=1 to n do
   For j:=1 to m do                    //Находим числа имеющие 0 в первом массиве
    If a[i,j] mod 10 = 0 then
      begin c[t]:=a[i,j]; t:=t+1;      //Заносим в новый массив
       end;
       
  For i:=1 to n do
   For j:=1 to m do                    //Находим числа имеющие 0 во втором массиве
    If b[i,j] mod 10 = 0 then
      begin c[t]:=b[i,j]; t:=t+1;      //Заносим в новый массив
       end;
       
     k:=r;
 For i:=r downto 1 do
  if c[i]=0 then k:=k-1;           //Изменяем размер массива, в зависимости от кол-ва заполненых ячеек
Write ('Полученный массив: ');
 For i:=1 to k do
  Write (c[i],', ');
end.

type mm=array[1..100,1..100]  of longint;
var x,i,j,k,n,m:longint;
    a,b:mm;
    d:array[1..10000] of longint;
    
 
function Check(x:longint):boolean;
var f:boolean;
begin
 
    f:=false;
    while x>0 do begin
        if x mod 10=0 then f:=true;
        x:=x div 10;
    end;
    check:=f;
 
end;
 
procedure Re(var a:mm);
begin
    for i:=1 to n do 
        for j:=1 to m do
            read(a[i,j]);
end;
 
begin
    readln(n,m);
    Re(a);
    Re(b);
 
    for i:=1 to n do 
        for j:=1 to m do begin
            if check(a[i,j]) then begin
                inc(k);
                d[k]:=a[i,j];
            end;
 
            if check(b[i,j]) then begin
                inc(k);
                d[k]:=b[i,j];
            end;
 
        end;
    for i:=1 to k do write(d[i],' ');
    
end.

type mm=array[1..100,1..100]  of longint;//здесь убавь типа [1..20,1..20];
var x,i,j,k,n,m:longint;
    a,b:mm;
    d:array[1..10000] of longint;//здесь убавь [1..400];