Перевод чисел из десятичной системы в систему с основанием меньше 10 [Паскаль]

[Pirokara]

Вобщем суть программы, представленной ниже перевод чисел из десятичной системы в систему с основанием меньше 10, но моя программа почему-то считает только десятичные числа, длинной не более 5 знаков, а если ввести более длинное число, то выдается неверный результат.

Program lab6;
Uses Crt;
Var
   C:array[1..100] of integer;
   B:array[1..100] of integer;
   A,n,k,i:integer;

BEGIN
     ClrScr;
     WriteLn('Perevod 10-n ');
     Write('Wwedite chislo '); ReadLn(A);
     Write('Wwedite osnovanie '); ReadLn(n);

     k:=0;
     While A<>0 do
     begin
          k:=k+1;
          B[k]:=A mod n;
          A:=A div n;
     end;

     i:=k;
     for n:=1 to k do
     begin
          C[i]:=B[n];
          i:=i-1
     end;

     for n:=1 to k do Write(C[n]);

     ReadLn;
END.