Сформировать одномерный массив размером K+N из двух упорядоченных одномерных массивов. (PascalABCNET)

[FlayGlam]

Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный так же, как исходные массивы.

[newerow1989]

const k=10;
      n=12;
var i:integer;
    a:array[1..k] of integer;
    b:array[1..n] of integer;
    c:array[1..k+n] of integer;
begin
   Randomize;
   For i:=1 to k do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Randomize;
   For i:=1 to n do
   begin
      b[i]:=Random(21);
      Write(b[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to k+n do
   begin
      If i<=k then
         c[i]:=a[i] else
         c[i]:=b[i-k];
      Write(c[i]:2,'  ');
   end;
   Writeln;
   Readln;
end.

[FlayGlam]

Да, спасибо огромное)

[newerow1989]