pascal, помогите с ошибкой

program wdf;
var
A:array [0..1000000] of integer;
B:array [0..1000000] of integer;
C:array [0..1000000] of integer;
D:array [0..1000000] of integer;
E:array [0..1000000] of integer;
F:array [0..1000000] of integer;
G:array [0..1000000] of integer;
H:array [0..1000000] of integer;
J:array [0..1000000] of integer;
K:array [0..1000000] of integer;
L:array [0..1000000] of integer;
x,n,i:integer;
begin
writeln('Введите колличество элементов');
read(n);
for i:=1 to n do
begin
readln(a[i]);
x:= A[i] mod 10;
case x of;
0:B[i]:=A[i];
1:C[i]:=A[i];
2:D[i]:=A[i];
3:E[i]:=A[i];
4:F[i]:=A[i];
5:G[i]:=A[i];
6:H[i]:=A[i];
7:J[i]:=A[i];
8:K[i]:=A[i];
9:L[i]:=A[i];
end;
for (место с ошибкой) i:=1 to n do
writeln(B[i]);
for i:=1 to n do
writeln(C[i]);
for i:=1 to n do
writeln(D[i]);
for i:=1 to n do
writeln(E[i]);
for i:=1 to n do
writeln(F[i]);
for i:=1 to n do
writeln(G[i]);
for i:=1 to n do
writeln(H[i]);
for i:=1 to n do
writeln(J[i]);
for i:=1 to n do
writeln(K[i]);
for i:=1 to n do
writeln(L[i]);
end;
end.

ошибка: нельзя изменять значение переменной цикла внутри этого цикла
что вообще должно получиться: целочисленный массив упорядочить по возрастанию последней цифры числа. При совпадении последних цифр элементы располагать в произвольном порядке