Написать программу с цикла while которая производит суммирование любых десяти чисел. буду !

Var i:integer; n,sum:real;
Begin
  Write('Введите 10чисел: ');
while (i<>10) do begin
                          readln(n);
                          sum:=sum+n;
                           i:=i+1;
  end;
writeln('Сумма этих чисел - ',sum);
end.