Ввести 2 массива в диапазоне от нуля до девяти, и, считая эти массивы десятичным представлением чисел считаем их разность

Function AminusB(aa,bb : String) : String;
Var
  A,B,C : String;
  i,k   : Byte;
  minus : Boolean;
  
  Function Xy(X,Y : String) : Boolean; {X>Y - True}
  Var ii : Byte;
  Begin
    Xy:=True;
    If Length(X)>Length(Y) then Exit;
    If Length(X)<Length(Y) then
    Begin
      Xy:=False;
      Exit;
    End;
    For ii:=1 to Length(X) do
      If X[ii]<Y[ii] then
      Begin
        Xy:=False;
        Exit;
      End;
  End;
  
  Function CifrMinus(Ac,Bc : Char; var perenos : Byte{0..1}) : Char;
  Begin
    Perenos:=0;
    If Ord(Ac)>=Ord(Bc) then CifrMinus:=Chr(Ord(Ac)-Ord(Bc)+48)
      else
      Begin
        Perenos:=1;
        CifrMinus:=Chr(Ord(Ac)+10-Ord(Bc)+48);
      End;
  End;
 
  Procedure A_perenos(Var SS : String; n : Byte);
  Var kk : Byte;
  Begin
    SS[n]:=CifrMinus(SS[n],'1',kk);
    If kk=1 then A_Perenos(SS,n-1);
  End;
  
Begin
  A:=aa; B:=bb; minus:=False;
  If not Xy(A,B) then
  Begin
    C:=A; A:=B; B:=C;
    minus:=True;
  End;
  C:=A;
  For i:=Length(B) downto 1 do
  Begin
    C[i]:=CifrMinus(A[i],B[i],k);
    If k<>0 then A_perenos(A,i-1);
  End;
  
  While C[1]='0' do Delete(C,1,1);
  If minus then AminusB:='-'+C else AminusB:=C;
End;
 
Begin
  Writeln(AminusB('123456789','123456790'));
End.

  If aa=bb then
  Begin
    AminusB:='0';
    Exit;
  End;