Дан одномерный массив, число элементов не превышает 10. Найти сумму элементов больших 4 — Pascal(Паскаль)

var
  a: array [1 .. 10] of integer;
  i, sum: integer;

begin
  sum := 0;
  for i := 1 to 10 do
    if (a[i] > 4) then
      sum := sum + a[i];
end;