Массив: Вставить в массив число b так, чтобы он остался неубывающим...

unit modul_1;
interface
type arr=array [1..100] of real;
procedure array_in(var mas:arr;var n:integer);
procedure array_out(var mas:arr;n:integer);
implementation
procedure array_in(var mas:arr;var n:integer);
var i,j:integer;
    x:real;
begin
repeat
writeln('Введите размер массива от 3 до 100 n=');
readln(n);
until n in [3..100];
writeln('Исходный массив');
for i:=1 to n do
mas[i]:=10*random;
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i]<mas[j] then
 begin
  x:=mas[i];
  mas[i]:=mas[j];
  mas[j]:=x;
 end;
for i:=1 to n do
write(mas[i]:5:1);
writeln;
end;
procedure array_out(var mas:arr;n:integer);
var i,j:integer;
    x:real;
begin
write('Введите число для вставки x=');
readln(x);
if x<mas[n] then mas[n+1]:=x//если меньше или равно последнему, добавляем
else//иначе ищем место для вставки
 begin
  for i:=1 to n do
   if mas[i]<=x then
    begin
     for j:=n+1 downto i+1 do
     mas[j]:=mas[j-1];
     mas[i]:=x;
     break;
    end;
 end;
writeln('Преобразованный массив');
for i:=1 to n+1 do
write(mas[i]:5:1);
end;
end.

uses crt,modul_1;
var a:arr;
    n,m:integer;
begin
randomize;
array_in(a,n);
array_out(a,n);
end.