вставка элементов одномерных массивов, как доделать задачу? Опции

[tryno]

Нужно Вставить число T
перед всеми элементами меньшими числа P
(вставка и удаление элементов одномерных массивов)

Program s;
Const n=7;
Type myarray = Array[1.. 2*n] Of Integer;
Var A : myarray;
x, k, i, p, t, y :Integer;
Procedure Init(Var m: myarray);
begin
 writeln('         ','Vveden massiv:      ');
   for i:=1 to n do begin
      m[i]:=random(20);
             end;
end;
Procedure Print(n1: Integer; m: myarray);
begin
   write('     ');
    for i:=1 to n1 do
    write(' ',m[i]);
end;

Procedure Insert2(k1, x1: Integer; Var m: myarray);
Var i : Integer;
begin{сдвиг элементов на одну позицию назад, - это номер последнего эл. в дан. мом.}
For i:= n+k Downto k1-1 Do
m[i+1]:= m[i];{ вставка эл. на место перед k1-м}
m[k1-1]:=x1;{увеличение счетчика вставляемых элементов}
Inc(k);
end;

Begin
Init(A);Print(n,A);
Write('         ','Vvedite vstavlyaemoe chislo T:');Readln(y);
Write('         ','Vvedite chislo dlya sravnenya P:');Readln(P);
k:=0;
For i:= n Downto 1 Do If A[i]<P Then Insert2(i,y,A);
Print(n+k,A);
Readln;
End.

Как доделать программу чтоб работала ?

М

Используй теги и НЕ используй цвет в программе. Lapp