Сортировка массива простыми вставками Опции

[PFanthem]

Разработать процедуру сортировки массива методом простых вставок. Массив заполняется случайными числами, произвести сортировку вещественных чисел в диапазоне [10;95] по убыванию. Также подсчитать теоретическое и реальное значения эффективности сортировки.
Вводится с клавиатуры длина массива.

Сортировка простыми вставками

procedure Sort ;
var k,j, x: byte;
begin
for k:=2 to N do
 begin
  x:=A[k];
  j:=k-1;
  while (j>0) and (x>A[j]) do
   begin
    A[j+1]:=A[j];
   end;
  A[j+1]:=x;
 end;
end;