Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти - Pascal - Ответ 6875780

program Sortirovka;
 
uses crt;
 
function min_cif(n:integer):byte;
var m:integer;
    mn:byte;
begin
m:=abs(n);
mn:=9;
while m>0 do
 begin
  if m mod 10<mn then mn:=m mod 10;
  m:=m div 10;
 end;
min_cif:=mn
end;
 
function sum_cif(n:integer):byte;
var m:integer;
    sum:byte;
begin
m:=abs(n);
sum:=0;
while m>0 do
 begin
  sum:=sum+m mod 10;
  m:=m div 10;
 end;
sum_cif:=sum
end;
const nmax=1000;
 
procedure swap(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c;
end;
var a:array[1..100] of integer;
    i,j,n,k:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер последовательности от 2 до ',nmax,' n=');
readln (n);
until (n>1)and(n<=nmax);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(1000);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(min_cif(a[i])>min_cif(a[j]))
or((min_cif(a[i])=min_cif(a[j]))and(sum_cif(a[i])>sum_cif(a[j])))
or((min_cif(a[i])=min_cif(a[j]))and(sum_cif(a[i])=sum_cif(a[j]))and(a[i]>a[j]))
then swap(a[i],a[j]);
writeln ('Отсортированный массив');
for j:=1 to n do
write (A[j]:4);
readln;
end.