Срочно!!! Помогите написать программку Pascal!!!Очень надо!!!

Доброрго времени суток.

program SortArray;
uses Crt;
const n = 10; {размерность массива поставьте как надо}

var
A, B : array [1..n] of Integer;
C : array [1..2*n] of Integer;
i,j,T : Integer;

begin
ClrScr;
Randomize;

{заполним массивы A и B}
for j:=1 to n do begin
A[j] := Random(21); {элементы массива числа в диапазоне 0..20}
B[j] := Random(41); {элементы массива числа в диапазоне 0..40}
end;

{выведем для контороля}
Write('Массив A : ');
for j:=1 to n do Write(A[j]:3);
WriteLn;

Write('Массив B : ');
for j:=1 to n do Write(B[j]:3);
WriteLn;

{объединяем массивы в один}
for j:=1 to n do C[j] := A[j];
for j:=1 to n do C[j+n] := B[j];

Write('Массив C : ');
for j:=1 to 2*n do Write(C[j]:3); {выведем результирующий массив}

{сортировка пузырьком}
for i := 1 to 2*n do
for j := 1 to 2*n - i do
if C[j] < C[j + 1] then begin {если текущий элемент меньше следующего переставим их местами}
T := C[j]; {сначала один сохраним в промежуточной переменной}
C[j] := C[j + 1]; {переставляем элементы}
C[j + 1] := T; {восстанавливаем значение из буфера}
end;

{выведем результат}
Write('Массив C : ');
for j:=1 to 2*n do Write(C[j]:3); {выведем отсортированный массив}
WriteLn;

Readln;
end.

Удачи!

PS А вообще, сначала понял, что надо просто отсортировать два массива. Если да, то эту программку можно модифицировать под такую задачу.

по ссылке написано, только надо > на < поменять и для второго массива тот же самый цикл.