Пользователь вводит целочисленный массив из 25 элементов . вычислить сумму элементов массива, меньших -12

//Pascal ABC.NET v3.0 сборка 1111
Const
 n=25;

Var
 ar:array[1..n] of integer;
 s,i:integer;
begin;
s:=0;
 for i:=1 to n do
  begin;
   readln(ar[i]);
   if ar[i]<12 then s:=s+ar[i];
  end;
writeln('Sum=',s);
end.

Пример ввода:
1
2
...
9
-10
-11
..
-19
20
21
..
25
Пример вывода:
Sum=-100