Вычислить по схеме Горнера: у =х10 +2х9 +3х8 + ... + 10x+ 11. (программа Паскаль)

Program xa;
var
 y,x:longint;
 i,k,j,m:integer;
begin
 Writeln('BBedute 4uClo');
 readln(x);
 m:=x;
 y:=0;
 k:=1;
 for i:=10 downto 0 do
 begin
  if i<>0 then
  begin
   x:=m;
   for j:=1 to i-1 do
    x:=x*m
  end
  else
   x:=1;
  y:=y+x*k;
  inc(k);
 end;
 Writeln('y= ' ,y);
 readln
end.