ПОМОГИТЕ! Дан одномерный массив из 30 элементов массива задать случайным образом…

var a: array [1… 30] of integer; count, i: integer; begin count: =0; for i: =1 to 30 do a[i]: =round (random (60) — 30; for i: =1 to 30 do if abs (a[i]) <= 7 then inc (count); writeln (count); end.