Найти среднее арифметическое 10чисел, введенных с клавиатуры (паскаль)

VAR
A: ARRAY [1..10] OF INTEGER;
i, sum: INTEGER;
sr: REAL;
BEGIN
sum := 0;
FOR i := 1 TO 10 DO READ (A[i]);
FOR i := 1 TO 10 DO sum := sum + A[i];
sr := sum/10;
WRITELN ('Среднее арифметическое = ', sr);
END.