Содержимое массивов сортируется по возрастанию. Затем из двух массивов (длины K и N) сформируйте массив

uses crt;
const l = 1000;
var
a,b,c: array [1..l] of integer;
i,k,tmp,n,m: byte;
begin
write('Введите размерность массива a: ');
readln(n);
writeln('Массив a:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln();
write('Введите размерность массива b: ');
readln(m);
writeln('Массив b:');
for i:=1 to m do
begin
b[i]:=random(50);
write(b[i],' ');
end;
writeln();
writeln('Массив a+b:');
for i:=1 to n do
c[i]:=a[i];
for i:=1 to m do
c[n+i]:=b[i];
for i:=1 to n+m do
write(c[i],' ');
writeln();
writeln('Отсортированный массив a:');
for i:=1 to n-1 do
for k:=i+1 to n do
if (a[i] > a[k]) then
begin
tmp:=a[i];
a[i]:=a[k];
a[k]:=tmp;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln();
writeln('Отсортированный массив b:');
for i:=1 to m-1 do
for k:=i+1 to m do
if (b[i] > b[k]) then
begin
tmp:=b[i];
b[i]:=b[k];
b[k]:=tmp;
end;
for i:=1 to m do
begin
write(b[i],' ');
end;
writeln();
writeln('Отсортированный массив a+b:');
for i:=1 to n+m-1 do
for k:=i+1 to n+m do
if (c[i] < c[k]) then
begin
tmp:=c[i];
c[i]:=c[k];
c[k]:=tmp;
end;
for i:=1 to n+m do
begin
write(c[i],' ');
end;
end.