Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками,а элементы равные 5 нулями.Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

const  n = 7;var  A: array [1..n] of integer;      i: integer;begin  writeln('Начальный вид массива:');  for i := 1 to n do   begin    A[i] := 5 + random(31);    writeln('A[', i, ']=', A[i]:3);  end;  writeln('Конечный вид массива:');  for i := 1 to n do   begin    if A[i] > 15 then A[i] := 8;    if A[i] = 5 then A[i] := 0;    writeln('A[', i, ']=', A[i]:3);  end;  readlnend.