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

[dima-intro]

вот мой код сортировки массива вставкой по возрастанию

procedure SortInsertIncrease(var a:TArray100;cnt:integer);
 var i,j,k:integer; r:real;
begin
 dec(cnt);
 i:=1;
  repeat
  j:=0;
   repeat
   if a[i]<=a[j] then
    begin
    k:=i;
    r:=a[i];
     repeat
      a[k]:=a[k-1];
      dec(k);
     until not(k>j);
     a[j]:=r;
     j:=i;
    end
  else inc(j);
  until not(j<i);
 inc(i);
  until not(i<=cnt);
end;

правильно ли?

[Stilet]

а что мешает проверить, запустив?

[dima-intro]

все правильно)
просто до этого почему-то не сортировало