Задача по упорядочиванию

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  function Pervoe(x: integer): integer;
begin
 while (x >= 0) and (x <= 9) do x:=x div 10;
 pervoe:=x;
end;
 
function max( x: integer): integer;
var t,k: integer;
begin
 t:= x mod 10;
 while x <> 0 do begin
  k:= x mod 10;
  if t<k then t:=k;
  x:= x div 10;
 end;
 max:=t;
end;
      var a:array [1..1000] of integer;
  i,n,k,t:integer;
 
begin
     write('Vvedite n>');
     Readln(n);
     for i:=1 to n do
     read(a[i]);
             for i:=1 to n do
             for k:=1 to n-i do
             begin
                 if pervoe(a[k])> Pervoe(a[k+1]) then  begin
                                                       t:=a[k+1];
                                                       a[k+1]:=a[k];
                                                       a[k]:=t;
                                                       end
                 else if pervoe(a[k])=Pervoe(a[k+1]) then
                      begin
                       if max(a[k])>max(a[k+1]) then begin
                                                     t:=a[k+1];
                                                     a[k+1]:=a[k];
                                                     a[k]:=t;
                                                     end
                       else if max(a[k])=max(a[k+1]) then
                         begin
                         if a[k]>a[k+1] then begin
                                             t:=a[k+1];
                                             a[k+1]:=a[k];
                                             a[k]:=t;
                                             end;
                         end;
                      end;
 
 
 
             end;
 
      writeln;
       for i:=1 to n do
       write (i,'  : ',a[i]);
end.

function Pervoe(x: integer): integer;
begin
 while (x >= 0) and (x <= 9) do x:=x div 10; // <--- Вот место ошибки. Сам догадаешься, что не так с условием?
 pervoe:=x;
end;