Задано массив целых чисел по возрастанию а[1; n] и число в. для числа в найти такое место среди элементов массива а, чтоб после вставки числа в на это место массива не нарушалась. если впоследствии равенства между собою значений элементов массива а число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.

Const
n = 11;
var
    numberToInsert, placeToInsert, i, counter : integer;
    massiv : array[1..n] of integer;
begin
    placeToInsert := 0;
    for i := 1 to n-1 do
        read(massiv[i]);
    readln(numberToInsert);
    while (numberToInsert > massiv[placeToInsert]) do
        placeToInsert += 1;
    for i := n - 1 downto placeToInsert do 
        massiv[i+1] := massiv[i];   
    massiv[placeToInsert] := numberToInsert;
    for i := 1 to n do 
        write(massiv[i]:3);
end.