процедура SortInc а паскале

[diane]

Описать процедуру SortInc (A’,N), выполняющую сортировку по возрастанию массива A из N вещественных чисел.

[Son Of Pain]

procedure SortInc(var a:array of real; n:word);
var i:word;
t:real;
begin
   i:=1;
   while (i<n) do
     if a[i]>a[i+1] then begin
       t:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=t;
       i:=1;
     end else inc(i);
end;

Например