Найти сумму четных элементов массива , случайным образом , от -50 до 50;

Const n=15;
var 
  a: array[1..n] of integer;
  s,i: integer;
begin
  s:=0;
  for i:=1 to n do begin
    a[i]:=random(-50,50);
    write (a[i]:4);
    if a[i] mod 2 =0 then s:=s+a[i];
  end;
  writeln;
  writeln (S = ,s);
end.
---------------------------------------------
37  -1  31 -49  50  14 -49   3 -35  21  33  41  13 -16 -42
S = 6