Создать одномерный массив с генератора случайных чисел, элементами которого являются целые числа из диапазона -50 до +120. все элементы массива больше 7 заменить нулем.распечатать измененный массив.

Program p1;
var  a: array[1..10] of integer;  i: integer;
begin  for i := 1 to 10 do   begin    a[i] := random(170) - 50;    write(a[i], ' ')  end;  writeln;  for i := 1 to 10 do if a[i] > 7 then a[i] := 0;  for i := 1 to 10 do write(a[i], ' ')end.