Для заданных N чисел просуммировать только те, которые по модулю больше 5.- Pascal(Паскаль)

program Prog1;
var
i,n,s,a:integer;
begin
writeln('Введите n:');
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
if abs(a)>5
then
s:=s+a;
end;
writeln('Сумма: ',s);
end.

const
  n=10;
var
  a:array[1..n] of real;
  s:real;
  i:integer;
begin
s:=0;
for i:=1 to n do
begin
  write('Введите '+inttostr(i)+'-ое число: ');
  readln(a[i]);
  if abs(a[i])>5 then s:=s+a[i];
end;