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

program Sortirovka;
uses crt;
const nmax=1000;
var A:array[1..100] of integer;
    i,j,n,nn,m,k,r,l:integer;
    s,s2:string;
    pr1,pr2,c,cod:integer;
    b:boolean;
procedure Perestanovka(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c;
end;
begin
write('N= '); 
readln (n);
writeln ('Vvedite elementy massiva A: ');
for j:=1 to n do 
   read (A[j]); 
    nn:=n;
    repeat
    b:=false;
    for j:=1 to nn-1 do
        begin
        l:=j mod 10;
        if j>10 then begin 
           l:=j mod 10;
        if m > max then 
           max:=c;  
           j:=j div 10;
        end;   
           str(A[j],s);
           str(A[j+1],s2);
        end;
    dec(nn);
    until not b;
writeln;writeln;
writeln ('po neubivaniu naimenshei tsifri');
for j:=1 to n do 
   write (A[j],' ');
   nn:=n;
   repeat
   b:=false;
    for j:=1 to nn-1 do
        begin
          str(A[j],s);
          str(A[j+1],s2);
          if s[1]<>s2[1] then
          pr1:=1;pr2:=1;
          for i:=1 to length(s) do  
            begin val(s[i],c,cod); 
               pr1:=pr1+c; 
            end;
            for i:=1 to length(s2) do 
              begin  
                 val(s2[i],c,cod);
                 pr2:=pr2+c; 
              end;
            if pr1<pr2 then 
              begin        
                k:=A[j];
                A[j]:=A[j+1];
                A[j+1]:=k;
                b:=true; 
              end;
        end;
    dec(nn);
    until not b;
writeln;writeln;    
writeln ('po neubivaniu summi tsifr');
for j:=1 to n do write (A[j]:4,' ');
    nn:=n;
    repeat
    b:=false;
    for j:=1 to nn-1 do
        begin
          str(A[j],s);
          str(A[j+1],s2);
          pr1:=1;pr2:=1;
          for i:=1 to length(s) do  
             begin 
               val(s[i],c,cod);
               pr1:=pr1+c; 
             end;
             for i:=1 to length(s2) do 
                 begin 
                   val(s2[i],c,cod);
                   pr2:=pr2+c; 
                 end;
                 if (s[1]<>s2[1]) and (pr1<>pr2) then        
                 if A[j]>A[j+1] then  
                      begin
                        r:=A[j];
                        A[j]:=A[j+1];
                        A[j+1]:=r;
                        b:=true; 
                      end;
        end;
    dec(nn);
    until not b;
writeln;writeln;   
writeln ('Massiv A po neubivaniyu samogo chisla: ');
for j:=1 to n do 
  write (A[j]:4,' ');
readln;
end.