цифровая сортировка целых неотрицательных чисел

[filvika]

реализация в виде процедуры вида
DSort(a: array of integer)

[Don Karleone]

procedure DSort(a: array of integer);
var
  i, j, K: integer;
begin
  for i:=0 to High(a) - 1 do
    for j:=0 to High(a) - i do
      if a[j] > a[j+1] 
          then
              begin
                 K:=a[j];
                 a[j]:=a[j+1];
                 a[j+1]:=K;
              end;
end;

[filvika]

пузырек получается, однако