Записать программу которая находит сумму элементов целочисленного массива,абсолютная величина которых больше 20

Var i,o:integer;
 a:array [1..20] of integer;
begin
for i:=1 to 20 do 
begin
readln (a[i]);
o:=o+a[i]
end;
writeln(o)
end.