Program Marina; uses crt;

const size_n=8;
      size_m=12;

type vector=array[1..size_m+1] of integer;

{----- Генерируем вектор Start -----}
Procedure GenerateVector(var x:vector; n:byte);
var i:byte;
Begin
X[1]:=Random(5);
for i:=2 to n do X[i]:=X[i-1]+Random(5)+1;
end;
{----- Генерируем вектор End -----}

{----- Выводим вектор на экран Start -----}
Procedure OutPutVector(x:vector; name:string; n:byte);
var i:byte;
Begin
Write('--------------------------------------------------------------------------------');
Writeln(' Вектор '+Name+':');
for i:=1 to n do Write(X[i]:5);
Writeln;
end;
{----- Выводим вектор на экран End -----}

{----- Вставляем элемент в массив Start -----}
Procedure InPutVector(var x:vector; y:integer; n:byte);
var i,j:byte;
Begin
if (Y >= X[n]) then X[n+1]:=Y
                 else
                     Begin
                     i:=1;
                     While X[i] <= Y do
                           Begin
                           Inc(i);
                           end;
                     for j:=n+1 downto i+1 do X[j]:=X[j-1];
                     X[i]:=Y;
                     end;
end;
{----- Вставляем элемент в массив End -----}

var a,b:vector;
    k,l:integer;

Begin clrscr;
Randomize;
GenerateVector(A,Size_N);
OutPutVector(A,#65,Size_N);
GenerateVector(B,Size_M);
OutPutVector(B,#66,Size_M);

Write(' Введите целое число K: '); Readln(K);
Write(' Введите целое число L: '); Readln(L);
InPutVector(A,K,Size_N);
OutPutVector(A,#65,Size_N+1);
InPutVector(B,L,Size_M);
OutPutVector(B,#66,Size_M+1);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.