Дан массив целых чисел, заполненный случайным образом из отрезка [-30; 40]. Найти сумму элементов массива, больших числа А. Число А вводится с клавиатуры. ) (паскаль)

Program massiv; Const n=100; Var a:array[1..n] of integer;     i,s:integer; Begin s:=0; For i:=1 to n do  Begin   a[i]:=i*i;   Write(a[i]:6);   s:=s+a[i];  end; WriteLn; Write('Сумма=',s); end.