Дан массив целых чисел. найдите: а) сумму элементов массива, больших данного числа а (а вводить с клавиатуры).

const z = 10;
var
  a: array[1..z] of integer;
  i, n, s: integer;
begin
  readln(n);
  for i := 1 to z do begin
    a[i] := random(100);
    write(a[i], ' ');
    if(a[i] > n) then s := s + a[i];
  end;
  writeln;
  writeln('Сумма эл. > ', n, ' : ', s);
end.