Вычислить сумму пяти целых чисел, которые являются массивом. (pascal)

Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
S:=0;
Write('Введите пять целых чисел: ');
For i := 1 to N do
    Begin
    Read(A[i]);
    S:=S+A[i]
    End;
WriteLn('S = ',S);
ReadLn
End.