Даны два массива A(N), B(N). Сформировать массив C(2N), элементы которого получаются по следующему правилу

uses crt;
const nmax=20;
var a,b,c: array [1..nmax*2] of integer;
    i,n: byte;
 
procedure Vyvod (c: char; r: byte; z: array [1..nmax*2] of integer);
var j: byte;
begin
writeln('Массив ',c);
for i:=1 to r do
    write(z[i]:4);
writeln;
end;
 
begin
repeat
write('n='); readln(n);
until n in [1..nmax];
for i:=1 to n do
    begin
    a[i]:=random(199)-99;
    b[i]:=random(199)-99;
    c[2*i-1]:=a[i]-1;
    c[2*i]:=b[i]+1;
    end;
Vyvod ('A',n,a);
Vyvod ('B',n,b);
Vyvod ('C',n*2,c);
readln;
end.

procedure Vyvod (c: char; r: byte; z: array [1..nmax*2] of integer);

for i:=1 to r do

const nmax=20;
type mas=array [1..nmax*2] of integer;
var a,b,c: mas;
    n: byte;
procedure Vyvod (c: char; r: byte; z: mas);
begin
writeln('Массив ',c);
for var i:=1 to r do
    write(z[i]:4);
writeln;
end;
 
begin
repeat
write('n='); readln(n);
until n in [1..nmax];
for var i:=1 to n do
    begin
    a[i]:=random(199)-99;
    b[i]:=random(199)-99;
    c[2*i-1]:=a[i]-1;
    c[2*i]:=b[i]+1;
    end;
Vyvod ('A',n,a);
Vyvod ('B',n,b);
Vyvod ('C',n*2,c);
readln;
end.