Найти ошибку в вычислении цикла - Turbo Pascal

Формулировка задачи:

Вычислить сумму 1-(2/3)*x+(3/4)x^2...(11/12)*x^10 при x=2

Сам код:

                    Листинг программы
                
 
                        
                          
                    
program tuchanka;
var i,t,x:integer;
s:real;
begin
x:=1;
for i:=1 to 11 do for t:=1 to 12 do begin;
if t<>2 then
s:=s+((i/t)*x);
x:=(2*x);
end;
writeln(s);
end.

Решение задачи: «Найти ошибку в вычислении цикла»

Листинг программы

var i,t,x:integer;
    s:real;
begin
writeln(' ');
x:=2; //по условию
t:=1;
s:=t;
for i:=2 to 11 do
 begin;
  t:=-t*x;
  s:=s+i*t/(i+1);
 end;
writeln(s:0:4);
end.

Объяснение кода листинга программы

Объявляются переменные: i, t, x, s.
Выводится пробел.
Переменная x инициализируется значением 2, согласно условию.
Переменная t инициализируется значением 1.
Переменная s инициализируется значением t.
Запускается цикл for, который выполняется от 2 до 11.
Внутри цикла переменная t инициализируется как -t*x.
Переменная s инициализируется как s+i*t/(i+1).
Цикл завершается.
Выводится значение переменной s, которое должно быть в диапазоне от 0 до 4.