Пожалуйста помогите задачу решить! Размерность массива вводится с клавиатуры.…

var c, n, i: integer; a: array of integer; begin randomize; writeln ('Введите размер массива: '); read (n); SetLength (a, n); writeln ('Массив: '); for i: =0 to n — 1 do begin a[i]: =random (101) — 30; write (a[i]: 4); if (a[i] mod 7=0) and (a[i] <> 0) then inc (c); end; writeln; writeln ('Кол-во элементов кратных семи: ', c); for i: =0 to n — 1 do if (a[i] mod 7=0) and (a[i] <> 0) then write (a[i]: 4); end.