из матриц в одномерный массив

var a:array[1..10,1..10]of integer;
N:array[1..10]of integer;
i,k,j:integer;
procedure vvod;
var i,j:integer;
a:array[1..10,1..10] of integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
readln(a[i,j]);
 end;
procedure vivod;
var i,j,n:integer;
a:array[1..10,1..10] of integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
if (a[i,j]mod 3=0) then begin N[I]:=A[I,J];
n:=n+1;
readlN;
end;
begin
vvod;
vivod;
for i:=1 to n do
write (N[i]);
readln;
end.

k:=0;
for i:=1 to 5 do
for j:=1 to 7 do
if (a[i,j]mod 3=0) then 
 begin 
   k:=k+1;
   N[k]:=A[I,J];
 end;

uses crt;
const max=7;
type mas=array[1..max*max] of integer;
     matr=array[1..max,1..max] of integer;
procedure Matrica(var mt:matr;x,y:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(40)+10;
    write(mt[i,j]:4);
   end;
  writeln;
 end;
writeln;
end;
procedure Vector(mt:matr;x,y:byte;var v:mas;var z:byte;c:string);
var i,j:byte;
begin
z:=0;
for i:=1 to x do
for j:=1 to y do
if mt[i,j] mod 3=0 then
 begin
  z:=z+1;
  v[z]:=mt[i,j];
 end;
writeln('Вектор ',c);
for i:=1 to z do
write(v[i],' ');
writeln;
writeln;
end;
var n,m:matr;
    n1,m1:mas;
    an,am:byte;
begin
clrscr;
randomize;
Matrica(n,5,7,'N');
Vector(n,5,7,n1,an,'N1');
write('Press Enter...');
readln;
Matrica(m,6,4,'M');
Vector(m,6,4,m1,am,'M1');
write('Press Enter...');
readln
end.

Type
NT=array [1..10,1..10] of integer;
Var
N1:NT;
i,j,k1,k2:integer;
Procedure VVOD (Var x:NT;Var a,b:integer);
begin
writeln ('введите размерность матрицы');
readln(a,b);
writeln('введите значения матрицы');
For i:=1 to a do
For j:=1 to b do
readln (x[i,j]);
end;
Procedure Vivod(x:NT;a,b:integer);
begin
For i:=1 to a do
begin
For j:=1 to b do
write(x[i,j]:4);
writeln;
end;
end;
begin
VVOD(N1,k1,k2);
writeln('получена матрица');
Vivod(N1,k1,k2);
end.