Многочлены Опции

[savik]

Задача №670.
Я смог решить только пункт в) и то не уверен что правильно. Но вот как решить пункт а) и б) я понятия не имею Подскажите пожалуйста!

var     k: byte;
        a, temp: real;
function G(k: integer; x: real): real;
begin
  if k=0 then G:=1 else if k=1 then G:=x-1 else G:=(x-2*k+1)*G(k-1,x)
  -sqr(k-1)*G(k-1,x)
end;
begin
write('Vvedite a: ');  readln(a);
temp:=0;
for k:=0 to 6 do
temp:=temp+G(k,a);
write('Rezultat = ', temp:10:3);
readln;
end.

[volvo]

Цель всей этой строки - перенести массив из CF в Res, но не просто так перенести, а одновременно еще сдвинуть его вправо, т.е., элементы cf[ i ] перенести в элементы Res[i+1]. А как это сделать? Можно циклом, конечно, но зачем цикл, если есть встроенная процедура Move, которая прекрасно подходит для этого. Передавать в Move надо 3 параметра: откуда брать данные, куда их переносить, и сколько (в байтах) переносить. Откуда и куда (первые 2 параметра) - все понятно, от CF[0], в Res[1]. А вот сколько? Берем Pred(max_order) = max_order - 1, это столько элементов, сколько мы в принципе можем записать начиная с Res[1], не рискуя вылететь за пределы массива. Но ведь тип CoeffType - массив Integer-ов, а Move хочет размер в байтах. Значит, число переносимых элементов домножаем на размер Integer-а.