delphi длинная арифметика

Ответ от ?????? Зелёный змий ??????[гуру]
#define ARRAY_SIZE 10
int main()
{
// Десятичная система исчисления (в байте одна десятичная цифра)
BYTE ДЕЛИМОЕ [ ARRAY_SIZE ];
BYTE ДЕЛИТЕЛЬ;
BYTE ЧАСТНОE[ ARRAY_SIZE ];
BYTE ОСТАТОК;
// Инициализация ДЕЛИМОЕ, ДЕЛИТЕЛЬ
// ...
// Деление
ОСТАТОК = 0;
for (int i = ARRAY_SIZE - 1; i >= 0; i--)
{
int temp = 10 * ОСТАТОК + ДЕЛИМОЕ [ i ];
ЧАСТНОE[ i ] = (BYTE)(temp / ДЕЛИТЕЛЬ) ;
ОСТАТОК = (BYTE)(temp % ДЕЛИТЕЛЬ) ;
}
return 0;
}