Конвертер чисел

PROGRAM BaseConverter(INPUT, OUTPUT);
CONST
  MinBase = 2;
  MaxBase = 10;
  MinNum = 1;
  MaxNum = 109;
  MaxLength = 7; {Зависит от степени двойки в которую входит MaxNum (109 > 2^6 => MaxLength = 7)}
VAR
  Base, Result, Num, Sum, Mult, Count: INTEGER;
  Ar: ARRAY [1 .. MaxLength] OF INTEGER;
BEGIN
  Count := 0;
  Result := 0;
  Base := 0;
  Num := 0;
  Sum := 0;
  Mult := 1;
  WRITELN('Введите число от ', MinNum, ' до ', MaxNum, ' включительно');
  READ(Num);
  IF NOT EOF
  THEN
    BEGIN
      IF (Num >= MinNum) AND (Num <= MaxNum)
      THEN
        BEGIN
          WRITELN('Введите основание системы счисления от ', MinBase, ' до ', MaxBase, ' включительно');
          READ(Base);
          IF (Base >= MinBase) AND (Base <= MaxBase)
          THEN
            BEGIN
              WHILE Num > 0 
              DO
                BEGIN
                  Count := Count + 1;
                  Ar[Count] := Num MOD Base;
                  Num := Num DIV Base;
                END;
                FOR Num := Count DOWNTO 1 
                DO
                  Result := Result * 10 + Ar[Num];   
              WHILE Result <> 0
              DO
                BEGIN  
                  Sum := Sum + Result MOD 10;
                  Mult := Mult * (Result MOD 10);
                  Result := Result DIV 10
                END;  
              WRITELN('Разность произведения и суммы равно: ', Mult - Sum)     
            END  
          ELSE
            WRITELN('Основание не пренадлежит промежутку [', MinBase, '; ', MaxBase, ']');            
        END         
      ELSE
        WRITELN('Число не пренадлежит промежутку [', MinNum,'; ', MaxNum,']')
    END;
END.

WHILE Num > 0 
DO
  BEGIN
    Count := Count + 1;
    Ar[Count] := Num MOD Base;
    Num := Num DIV Base;
  END;
  FOR Num := Count DOWNTO 1 
  DO
     Result := Result * 10 + Ar[Num];   
  WHILE Result <> 0
  DO
     BEGIN  
        Sum := Sum + Result MOD 10;
        Mult := Mult * (Result MOD 10);
        Result := Result DIV 10
     END;

var
  n, k, o, p, s : Integer;
begin
  Read(n, k);
  p := 1; s := 0;
  repeat
    o := n mod k;
    n := n div k;
    p := p * o;
    s := s + o;
  until n = 0;
  Write(p - s);
end.