un poquito de ayuda porfavor

[N4ota]

Código Delphi [-]
wenas:
pos perdon dec lo que paso es que me desconecte mientras enviava mi hilo y pense que no habia llegado por eso lo envie dos veces
weno a lo que dice delphius pos la verdad no es mi tarea era mi examen jejeje
pero lo que pasa es que yo hice el codigo como sigue

function borrar(n,n1:integer):integer;
var
a,d:integer;
begin
a:=0;
  while n>0 do
  begin
  d:=n mod 10;
    if d<>n1 then
    begin
    a:=a*10 + d;
    end;
  n:=n div 10;
  end;
  a:=invertido(a);
result:=a;
end;
function menor(n:integer):integer;
var
aux,d:integer;
begin
aux:=9;
  while n>0 do
  begin
  d:=n mod 10;
  n:=n div 10;
    if dthen
    begin
    aux:=d;
    end;
  end;
result:=aux;
end;
function mayor(n:integer):integer;
var
aux,d:integer;
begin
aux:=1;
  while n>0 do
  begin
  d:= n mod 10;
  n:=n div 10;
    if auxthen
    begin
    aux:=d;
    end;
  end;
result:=aux;
end;
function intercalar(n:integer):integer;
var
d,b:integer;
begin
b:=0;
  while n>0 do
  begin
  d:=mayor(n);
  n:=borrar(n,d);
  b:=b*10+d;
  d:=menor(n);
  n:=borrar(n,d);
  b:=b*10+d;
  end;
result:=b;
end;
 
y el problema es que si es una cifra con 4 digitos como ser 7364 funca y los acomoda bien sin problemas pero si meto una cifra de 3 digitos como ser 738 al final me pone el numero 9 la verdad no entiendo porque no se si me podrian dar una pista?
desde ya gracias