Дан массив N элементов вещественного типа, расположенных по неубыванию. Нужно вставить любое число,сдвинув массив, тем самым убрав последнюю цифру — Pascal(Паскаль)

uses crt;
const n=10; {размер массива}
var a:array[1..n] of real;{массив вещественных чисел}
    i,p:integer; {счетчик чикла и позиция вставки}
    ch:real;  {число для встывки}
begin
clrscr;
randomize; {генерация случайных чисел}
writeln('Ishodnyj massiv:');
for i:=1 to n do
  begin
   a[i]:=i*random+i;{случайные вещественные сисла, в возрастающем порядке}
   write(a[i]:6:2);
  end;
writeln;
p:=random(n)+1; {позиция = от 1 до 10}
writeln('p=',p);
ch:=10*random; {вещественное число в инт. 0-10}
writeln('ch=',ch:0:2);
for i:=n downto p do
a[i]:=a[i-1]; {сдвигаем элементы вправо, вытесняем последний элемент}
a[p]:=ch;  {вставляем на свободное место наше число}
writeln('Rezultat:');
for i:=1 to n do
write(a[i]:6:2); {выводим новый массив}
readln
end.