Сортировка и слияние массивов

var
a: array[1..5] of integer;
b: array[1..5] of integer;
c: array [1..10] of integer;
i,j,n: integer;
max   : integer;
Begin
n:=5;
RANDOMIZE;
for i:=1 to n do
  Begin
    a[i] := random(100);
    b[i] := random(100);
  end;
 
{sort a}
for i:=1 to n do
  for j:=1 to n do
    if a[i] < a[j] then
     Begin
       max := a[j];
       a[j] := a[i];
       a[i] := max;
     end;
{sort b}
for i:=1 to n do
  for j:=1 to n do
    if b[i] < b[j] then
     Begin
       max := b[j];
       b[j] := b[i];
       b[i] := max;
     end;
 
 for i:= 1 to 5 do
   Begin
      c[i] := a[i];
      c[i + n] := b[i];
   end;
 
{sort c}
for i:=1 to n*2 do
  for j:=1 to n*2 do
    if c[i] > c[j] then
     Begin
       max := c[j];
       c[j] := c[i];
       c[i] := max;
     end;
{output a,b,c}
for i:= 1 to n do
Begin
     WriteLn(' a[',i,'] = ',a[i],' b[',i,'] = ',b[i]);
end;
for i:= 1 to n*2 do
Begin
     WriteLn(' c[',i,'] = ',c[i]);
end;
 
 
ReadLn;
end.