Дан целочисленный массив а(). нужно получить массив в изменяя массив а так,чтобы все отрицательные числа в массиве в были равны 0,а все положительные 1.

I: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;

for i:=0 to 100 do begin
  if A[i]<0 them b[i]:=0
  else b[i]:=1; 
end;