Как увеличить диапазон возразщаемых программой значений?

type
  ALI = Array of LongInt;
 
Function GD(n,c,i: Int64): Int64;
Begin
  If (n = 0) then
  GD:=0 Else
    GD := (n mod c)*(i div 10) + GD(n div c,c,i*10)
End;
 
function NFS(f: String; n,p: LongInt): LongInt;
var i: LongInt;
    h: ALI;
begin
  SetLength(h, Length(f));
  for i := 1 to Length(f) do
    h[i - 1] :=  Ord(f[i])-Ord('0');
  for i := 0 to Length(f) - 1 do
    n := n * p + h[i];
  Result := n;
end;
 
Var a1,b1: String;
    a,b,c,j,e,f: Int64;
    
Begin
  ReadLn(c,e,f);
  Str(e,a1);
  Str(f,b1);
  a := NFS(a1,0,c);
  b := NFS(b1,0,c);
  j:=a+b;
  WriteLn(GD(j,c,10));
End.

uses crt;
var s1,s2:string;
    a,b,c:array[byte] of byte;
    base,na,nb,i,j,n,p:byte;
    t,k:integer;
    f:boolean;
begin
clrscr;
repeat
write('Введите основание СС от 2 до 9 base=');
readln(base);
until base in [2..9];
{ввод чисел с проверкой}
repeat
write('Введите число A:');
readln(s1);
i:=1;
f:=true;
while(i<=length(s1))and f do
if not(ord(s1[i])-48 in [0..base-1])then f:=false
else i:=i+1;
if not f then writeln('Это не число в СС ',base,' повторите ввод');
until f;
repeat
write('Введите число B:');
readln(s2);
i:=1;
f:=true;
while(i<=length(s2))and f do
if not(ord(s2[i])-48 in [0..base-1])then f:=false
else i:=i+1;
if not f then writeln('Это не число в СС ',base,' повторите ввод');
until f;
{нормализация}
na:=length(s1);
nb:=length(s2);
for i:=1 to na do
  begin
    val(s1[i],t,k);
    a[i]:=t;
  end;
for i:=1 to nb do
  begin
    val(s2[i],t,k);
    b[i]:=t;
  end;
if na>nb then
  begin
    n:=na;
    for i:=1 to na-nb do
      begin
        nb:=nb+1;
        for j:=nb downto 2 do
        b[j]:=b[j-1];
        b[1]:=0;
      end;
   end
else if nb>na then
   begin
     n:=nb;
     for i:=1 to nb-na do
       begin
         na:=na+1;
         for j:=na downto 2 do
         a[j]:=a[j-1];
         a[1]:=0;
       end;
    end
else if nb=na then n:=na;
p:=0;
for i:=n downto 1 do
  begin
   c[i]:=a[i]+b[i]+p;
   if (c[i]>base-1)and(i>1) then
      begin
       c[i]:=c[i] mod base;
       p:=1;
      end
    else p:=0;
  end;
if c[1]>base-1 then
  begin
    c[1]:=c[1] mod base;
    n:=n+1;
    for j:=n downto 2 do
    c[j]:=c[j-1];
    c[1]:=1;
  end;
writeln('Chislo C:');
for i:=1 to n do
write(c[i]);
readln
end.