вывод полинома в программе (была каноническая стала линейная)

[Студент13]

Вот часть программы которая выводит полином в канонической форме...

write('P',N-1,'(x)=');
for i:=N DownTo 1 Do
if Round(Cx[i]*1000)<>0 Then
begin
if (Cx[i]<0) Then Write(' - ') Else Write(' + ');
write(ABS(Cx[i]):5:3);
if (i>2) Then Write('•x^',i-1) Else
if (i>1) Then Write('•x')
end;
Тоесть в форме полинома, в которой его разложение записывается по убывающим степеням переменной...

Как переделать чтоб выдавал в форме
PN(x) = c0 + c1 (x - x0 ) + c2 (x - x0 )(x - x1 ) + ... +
+ cN (x - x0 )(x - x1 )• ... •(x - xN-1 )

?