Помогите сделать одномерный масив с матрицами

program lab
uses crt;
var
   a,b:array[1..10] of integer;
   c:array[1..10] of real;
   i,j:integer;
   ch:char;
const n=10;
begin
{ repeat          }
  clrscr;
  writeln('BBeguTb Matix A');
  for i:=1 to n do
    a[i]:=random(10)+1;
  writeln('BBeguTb Matrix B');
  for i:=1 TO n do
    b[i]:=random(10)+1;
 
  writeln('Matrix A');
  for i:=1 TO n do
   begin
    write(a[i]:5);
   end;
 
  writeln;
  writeln('Matrix B');
  for i:=1 TO n do
   begin
    write(b[i]:5);
   end;
  writeln;
  for i:=1 TO n do
   begin
    if a[i]<>b[i] then  c[i]:=1/a[i]-b[i]
                  else c[i]:=0;
   end;
  for i:=1 TO n do
   begin
    write(c[i]:7:2);
   end;
 
   writeln;
   writeln('if you want to repeat calculations press y');
   ch:=readkey;
 {until ch<>'y';}
 readln;

for i:=1 to n do

uses crt;
type
mas1=array[1..10] of integer;
mas2=array[1..10] of real;
matr=record
     m1,m2:mas1;
     m3:mas2;
     end;
var a:array[1..20] of matr;
    n,i,j,k:integer;
begin
clrscr;
randomize;
write('Количество генераций n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Генерация ',i);
  for j:=1 to 10 do
   begin
    a[i].m1[j]:=random(9)+1;
    a[i].m2[j]:=random(9)+1;
    if a[i].m1[j]=a[i].m2[j] then a[i].m3[j]:=0
    else  a[i].m3[j]:=1/(a[i].m1[j]-a[i].m2[j]);
   end;
  write('A=');
  for j:=1 to 10 do write(a[i].m1[j]:5);
  writeln;
  write('B=');
  for j:=1 to 10 do write(a[i].m2[j]:5);
  writeln;
  write('C=');
  for j:=1 to 10 do write(a[i].m3[j]:5:1);
  writeln;
  writeln;
 end;
readln
end.

program lab;
uses crt;
type
mas1=array[1..100] of integer;
mas2=array[1..100] of real;
procedure Generate(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
for i:=1 to x do
 begin
  v1[i]:=random(9)+1;
  v2[i]:=random(9)+1;
  if v1[i]=v2[i] then v3[i]:=0
  else v3[i]:=1/(v1[i]-v2[i]);
 end;
end;
procedure Vyvod(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
writeln('Massiv A');
for i:=1 to x do
write(v1[i]:5);
writeln;
writeln;
writeln('Massiv B');
for i:=1 to x do
write(v2[i]:5);
writeln;
writeln;
writeln('Massiv C');
for i:=1 to x do
write(v3[i]:5:1);
writeln;
writeln;
end;
var a,b:mas1;
    c:mas2;
    n,i:integer;
begin
clrscr;
randomize;
write('Razmer massivov n=');
readln(n);
Generate(a,b,n,c);
Vyvod(a,b,n,c);
readln
end.

program lab;
uses crt;
type
mas1=array[1..100] of integer;
mas2=array[1..100] of real;
procedure Generate(var v1,v2:mas1;var x:byte; var v3:mas2);
var i:byte;
begin
write('Razmer massivov=');
readln(x);
for i:=1 to x do
 begin
  v1[i]:=random(9)+1;
  v2[i]:=random(9)+1;
  if v1[i]=v2[i] then v3[i]:=0
  else v3[i]:=1/(v1[i]-v2[i]);
 end;
end;
procedure Vyvod(var v1,v2:mas1;x:byte; var v3:mas2);
var i:byte;
begin
writeln('Massiv A');
for i:=1 to x do
write(v1[i]:5);
writeln;
writeln;
writeln('Massiv B');
for i:=1 to x do
write(v2[i]:5);
writeln;
writeln;
writeln('Massiv C');
for i:=1 to x do
write(v3[i]:5:1);
writeln;
writeln;
readln;
end;
var a,b:mas1;
    c:mas2;
    n:byte;
    w:char;
begin
clrscr;
randomize;
repeat
clrscr;
writeln('Dejstvie 1-povtor, drugoe-vyhod');
readln(w);
case w of
'1':begin
    Generate(a,b,n,c);
    Vyvod(a,b,n,c);
    end;
else exit;
end;
until w<>'1';
end.