Найти сумму 10 элементов массива (на языке Паскаль)

Program prog;
Uses crt;

var a: array[1..10] of  integer;
    s,i: integer;

begin
clrscr;

for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln;
writeln('Sum = ', s);
end.