ССРООЧЧННОО! Дан массив целых чисел

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.