Слить два массива A, B по 50 элементов в массив C из 100 элементов так, чтобы в массиве C чередовались элементы массивов А и В

Uses CRT;
Var a,b:array[1..10] of integer;
    c:array[1..20] of integer;
    i:byte;
begin
randomize;
writeln('Ìàññèâ A: ');
for i:=1 to 10 do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
end;
writeln;
writeln('Ìàññèâ B: ');
for i:=1 to 10 do
begin
 b[i]:=random(20)-3;
 write(b[i]:3);
 if a[i]>b[i] then
 begin
  c[i*2-1]:=a[i];
  c[i*2]:=b[i];
 end
 else
 begin
  c[i*2-1]:=b[i];
  c[i*2]:=a[i];
 end
end;
writeln;
writeln('Ìàññèâ C: ');
for i:=1 to 20 do
 write(c[i]:3);
readln;
end.

program q1;
uses crt;
const n=50;
var a:array[1..n] of integer;
i,s:byte; summa:integer;
function prostoe(x:integer):boolean;
var q:integer;
begin
prostoe:=true;
for q:=2 to trunc(sqrt(x)) do
 begin
 if (x mod q) = 0 then
 prostoe:=false;
 end;
end;
begin
clrscr;
for i:=1 to n do
 begin
 a[i]:=random(20)-10;
 summa:=summa+a[i]
 end;
for i:=1 to n do
if prostoe(a[i]) and (a[i] > summa) then s:=s+1;
writeln('количество чисел, превосходяще сумму',s);
readkey;
end.

function prostoe(x:integer):boolean;
var q:integer; t:boolean;
begin
for q:=2 to round(sqrt(x)) do
if (x mod q)=0 then
begin
 prostoe:=false;
 exit;
end;
prostoe:=true;
end;

uses crt;
const n=10;
var a:array[1..n] of integer;
i,s:byte; summa:integer;
 
function prostoe(x:integer):boolean;
var q:integer; 
begin
for q:=2 to round(sqrt(x)) do
if (x mod q)=0 then
begin
 prostoe:=false;
 exit;
end;
prostoe:=true;
end;
 
begin
clrscr;
for i:=1 to n do
 begin
  a[i]:=random(100)-58;
  write(a[i]:3);
  summa:=summa+a[i]
 end;
writeln;
writeln('SUM:=',summa);
s:=0;
for i:=1 to n do
if (a[i]>1) and prostoe(a[i]) and (a[i] > summa) then
begin
 write(a[i]:4);
 s:=s+1;
end;
writeln;
writeln('êîëè÷åñòâî ÷èñåë, ïðåâîñõîäÿùå ñóììó',s);
readkey;
end.