(Паскаль) Вычислить по схеме Горнера

Даны  целые  числа n[0..7], d[0..7], a, b.
         Вычислить по схеме Горнера

          n[7] *  a^7 + n[6] *  a^6      n[0]
         ----------------------------...------
          d[7] *  b^7 + d[6] *  b^6      d[0]

         определив процедуры полного сокращения рационального
         числа, заданного  числителем и знаменателем, а также
         процедуры сложения и умножения рациональных чисел.
         Схема Горнера (для n=3):
         a[3]*x^3 + a[2]*x^2 + a[1]*x + a[0] =
         (a[3]*x^2 + a[2]*x + a[1])*x + a[0] =
         ((a[3]*x +a[2])*x + a[1])*x + a[0]