Вставить по одному элементу перед всеми отрицательными элементами

uses crt;
Const dd = 51;
n = 10;
Type myarray = Array[1.. 2*n] Of Integer;
Var A : myarray;
x, k, i :Integer;
Const nmax = 10;
 
Procedure Init2(Var m: myarray); 
 
    var i:byte;
    begin
    repeat
 
    until n in [1..nmax];
        for i:=1 to n do
        a[i]:=random(100)-50;
    end;
 
Procedure Print1(n1: Integer; m: myarray); 
 
    var i:byte;
    begin
        for i:=1 to n do
            write(a[i]:4);
    writeln;
    end;
 
Procedure Insert3(k1, x1: Integer; Var m: myarray);
Var i : Integer;
Begin 
For i:= n+k Downto k1+1 Do
m[i+1]:= m[i];
m[k1+1]:= x1; 
Inc(k); 
End;
 
Begin
Init2 (A); Print1(n,A);
Writeln('Vstavluemoe chislo: ');
Readln(x);
k := 0;
For i:= n Downto 1 Do
If A[i] < 0 Then Insert3 (i,x,A);
Print1 (n + k,A); 
Readln;
End.

Print1 (n + k,A);