Посчитать сумму и произведение тех элементов массива, которые являются нечётными и меньше 30. (Паскаль)

Var
  a: array[1..10] of integer;
  i, s, p: integer;
begin
  for i:=1 to 10 do
    readln(a[i]);
  s:=0; p:=1;
  for i:=1 to 10 do
    if (a[i] mod 2 gt; 0) and (a[i] lt; 30) then
    begin
      s:=s+a[i];
      p:=p*a[i];
    end;
  writeln(s);
  writeln(p);
end.