вводя два массива целых чисел до 10 в каждом. из введенных двух массивов построить третий массив, в котором элементы будут располагаться в порядке возрастания. Распечатать все 3 массива.

const  nm=10; {максимальная длина массива}var  i,j,n1,n2,n3,t:integer;  a,b:array[1..nm] of integer;  c:array[1..2*nm] of integer;begin  Write('Введите количество элементов в массиве A: ');  Readln(n1);  Write('Введите количество элементов в массиве B: ');  Readln(n2);  n3:=n1+n2;  Write('Введите элементы массива A через пробел ');  for i:=1 to n1 do    begin    Read(a[i]); c[i]:=a[i]    end;  j:=n1;  Write('Введите элементы массива B через пробел ');  for i:=1 to n2 do    begin    Read(b[i]); Inc(j); c[j]:=b[i]    end;  Write('Массив А: ');  for i:=1 to n1 do Write(a[i],' ');  Writeln;  Write('Массив B: ');  for i:=1 to n2 do Write(b[i],' ');  Writeln;  { сортировка массива С}  for i := 1 to n3-1 do    for j := 1 to n3-i do      if c[j] > c[j+1] then        begin        t:=c[j]; c[j]:=c[j+1]; c[j+1]:=t        end;  Writeln('Отсортированный по возрастанию массив C');  for i:=1 to n3 do Write(c[i],' ');end.Контрольное решение:Введите количество элементов в массиве A: 6Введите количество элементов в массиве B: 4Введите элементы массива A через пробел 3 8 -4 0 8 12Введите элементы массива B через пробел 9 -5 8 5Массив А: 3 8 -4 0 8 12 Массив B: 9 -5 8 5 Отсортированный по возрастанию массив C-5 -4 0 3 5 8 8 8 9 12