Метод Горнера Опции

[NTL]

Дано х -действительное. Составить программу для вычисления многочлена по схеме Горнера:
y1 = x^10 + 2*x^9 + 3*x^8+...+ 10*x + 11
y2 = 11*x^10 + 10*x^9 + 9*x^8+...+ 2*x + 1

Код

uses crt;
var  y2,y1,x,s:real;
       i,j:integer;
begin
clrscr;
writeln('x = ');read(x);
y1:=11;y2:=1;s:=1;
for i:=10 downto 1 do
begin
  for j:=1 to i do s:=s*x;

  y1:=y1+(10-j+1)*s
  y2:=y+(j+1)*s
end;

writeln('y1 = ',y:2:10);
writeln('y2 = ',y1:2:10);
readkey
end.

Ответ получается неразумный

Помогите плиз...
^ - есть степень