Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих промежутку от 0 до 50 и заменяет положительные числа на -5

Var
a:array [1..12] of integer;
b:integer;
Begin
for b:=1 to 12 do begin
a[b]:=random(51);
if a[b]<>0 then a[b]:=-5;
end;
End.