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

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