Помогите! Программа для нахождения суммы n — введенных вещественных…

Uses crt; var n,x,sum,i: integer; begin write ('Количество чисел: '); readln (n); for i: =1 to N do begin readln (x); sum: =sum+x; end; writeln ('Сумма введенных чисел: ',sum); end.