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

Program prog;Uses crt;var a: array[1..10] of  integer;    s,i: integer;beginclrscr;for i:=1 to 10 dobeginwrite('a[',i,'] = ');readln(a[i]);s:=s+a[i];end;writeln;writeln('Sum = ', s);end.