Составить программу, которая формирует массив из 12 случайных чисел, принадлежащих промежутку [-10,10], заменяет все отрицательные числа положительными, а положительные заменяет на ноль.

Program Ok;
const n=12;
var A:array[1..n] of integer;
var i:integer;
begin
randomize;
for i:=1 to n do 
begin
A[i]:=Random(21) -10;
write(A[i], );
end;
for i:=1 to n do
begin
if (A[i]lt;0) then
A[i]:=A[i]*(-1) 
else
A[i]:=0;
write(A[i], );
end;
end.