Найти сумму элементов массива больше данного числа а

Var b:array[1..100] of integer;
i, sum, a:integer;
Begin
  read(a);
  for i:= 1 to 100 do begin
    b[i]:= random(100);
    if b[i] < a then
      sum:= sum + b[i];
  end;
  writeln(sum);
End.