Нужно вписать в программу еще одно действие.

[Dumbl-D]

Данная программа находит место числа В в массиве А. Но я бы хотела, чтоб после этого в решении выводился еще и массив, который бы вмещал этот элемент В(был увеличен на 1). Как это сделать правильно не пойму. Помогите кто-то, прошу))

program srs10zad2;

const n=10;
var a:array[1..n] of integer;
    i,rez,b,k,buf:integer; 
begin
     writeln('Введіть B');
     readln(b);
     writeln('Введуть масив A');
     for i:=1 to n do
         begin
              write('A[',i,']=>');
              readln(a[i]);
         end;
     for k:=n downto 2 do
         for i:=1 to k-1 do
             if a[i]>a[i+1]
                then
                    begin
                         buf:=a[i];
                         a[i]:=a[i+1];
                         a[i+1]:=buf;
                    end;
     for i:=1 to n do
         writeln('A[',i,']=',a[i]);
     rez:=0;
     i:=1;
     while (rez=0) and (i<=n) do
            if b<=a[i]
               then rez:=i
               else i:=i+1;
     if rez=0
        then rez:=n;
     writeln('Число B можна вставити на ',rez,' позицію');
end.

[BleStaR]

Вариант 1: Если нужно просто вывести "массив", то можно реализовать так:
1. Вывод массива А до позиции rez
2. Вывод числа B
3 Вывод массива A с позиции rez+1

Вариант 2: Если нужен реально массив, тогда сначала надо будет его объявить как, например, newArray[1..n+1]. Заполнить его, аналогично выводу из первого варианта. Ну а потом уже вывести.

[SaLoKiN]

program srs10zad2;

const n=10;
var a:array[1..n+1] of integer;
    i,rez,b,k,buf:integer; 
begin
     writeln('Введіть B');
     readln(b);
     writeln('Введуть масив A');
     for i:=1 to n do
         begin
              write('A[',i,']=>');
              readln(a[i]);
         end;
         
     for k:=n downto 2 do
         for i:=1 to k-1 do
             if a[i]>a[i+1]
                then
                    begin
                         buf:=a[i];
                         a[i]:=a[i+1];
                         a[i+1]:=buf;
                    end;
  
     rez:=0;
     i:=1;
     while (rez=0) and (i<=n) do
            if b<=a[i]
               then rez:=i
               else i:=i+1;
               
     if rez=0
        then 
          rez:=n+1;
            
       if (rez<>n ) then
    
        for i:=n downto rez do
            a[i+1]:=a[i];
            a[rez]:=b;
           
     writeln('Число B можна вставити на ',rez,' позицію');
      
     writeln('Массив А с добавленным числом B=',b,', вставленным на ',rez,' позицию:');
  for i:=1 to n+1 do
         begin
          write(' ',a[i]);
                       end;   
end.

[Dumbl-D]

Большое спасибо за ответы))