Задан массив целых чисел изт10 элементов. положительные элементы заменить единицами,отрицательные нулями

Var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100)-50;
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
if a[i]>0 then a[i]:=1
else a[i]:=0;
write(a[i]:2);
end;
end.