Положительные элементы заменить на 1, а отрицательные на - 1

Var a: array [1..30] of integer;
begin
for var i:=1 to 30 do
begin 
a[i]:=random(-30,30);
end;
println(a);
for var i:=1 to 30 do
begin
if (a[i]>0) then
a[i]:=1
else
a[i]:=-1;
end;
print(a);
end.