Вопрос по алгоритму

[Cstln]

Это сортировка подсчётом:

uses crt;
Var A,B : array[1..1000] of integer;
N,i : integer;
t : longint;
Procedure Sort; 
Var C : array[0..9] of integer;
j : integer;
Begin
For j:=0 to 9 do
C[j]:=0;
For j:=1 to N do
C[(A[j] mod (t*10)) div t]:= C[(A[j] mod (t*10)) div t]+1; {Выделяем цифры, сначала последние}
For j:=1 to 9 do
C[j]:=C[j-1]+C[j]; 
For j:=N downto 1 do
begin
B[C[(A[j] mod (t*10)) div t]]:=A[j];
C[(A[j] mod (t*10)) div t] := C[(A[j] mod (t*10)) div t]-1;
end;
End;

Begin
randomize;
write('n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(500)+1; {диапазо 1-500}
  write(a[i]:4);
 end;
writeln;
{сортировка данных}
t:=1;
for i:=1 to 5 do
begin
Sort;
A:=B;
t:= t*10;
end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
End.

Если я здесь заменю в процедуре N downto 1 на 1 to N, то сортируется неверно. В чём проблема?