метод пошаговой детализации

[lucky]

Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой отсортировать одномерный массив a[1..8], состоящий из элементов вещественного типа в порядке возрастания методом «вставки». Исходные данные массива вводятся с клавиатуры.

[lucky]

Program d5;
uses crt;
type matr=array[1..10] of integer;
var a:matr;
Procedure vvod(var a:matr);
var i:integer; begin for i:=1 to 10 do begin
Write('Введите элемент массива a[',i,']');
Readln(a[i]);
end;
end;
Procedure sort(var a:matr);
var i,j,T:integer;
begin for i:=1 to 9 do
for j:=1 to 9 do
if a[j]>a[j+1] then
begin
T:=a[j];
a[j]:=a[j+1];
a[j+1]:=T;
end;
end;
Procedure vyvod(a:matr);
var
i:integer;
begin
Write('Отсортированная последовательность массива');
for i:=1 to 10 do Write(' ',a[i]);
end;
begin
vvod(a);
sort(a);
vyvod(a);
end.

[lucky]

это пример. помогите кто может, а то не успеваю сделать. плс за мной