Pascal вычислить сумму элементов массива заданной длины(array)

Uses Crt;
const
m=1000;
var
a:array[1..m]of integer;
i,s,n:integer;
  begin
  clrscr;
    writeln(' Введите длину массива');
    readln(n);
Writeln('Введите массив через пробел');
       for i:=1 to n do
          begin
            read(a[i]);
            s:=s+a[i];
          end;
writeln(s);
readkey;
end.