Заполнить линейный массив из 10 элементов случайными числами от -50 до 50. Заменить все отрицательные его элементы на 0. Pascal ABC

var  a: array [1..10] of integer;  i: byte;  beginrandomize;writeln(' *** Исходный массив ***');for i := 1 to 10 do begin  a[i] := random(101) - 50;  write(a[i], ' ');end;writeln(#13+' *** Измененный массив ***');for i := 1 to 10 do begin  if a[i] < 0 then a[i] := 0;  write(a[i], ' ');end;  end.