Заменить в массиве положительные элементы на 0, отрицательные элементы на 1

var a:array [1..100] of integer;
    n,i,p,o:byte;
begin
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(101)-50; write(a[i],' ');
    if a[i]>0 then a[i]:=0 else
      if a[i]<0 then a[i]:=1;
  end; writeln;
  for i:=1 to n do begin
    write(a[i],' ');
    if a[i]=0 then inc(o) else inc(p);
  end; writeln;
  write('Единиц: ',p,'; Нулей: ',o);
end.

const
  n = 5;
 
var
  a: array[1..n] of integer;
  kp, ko, i: integer;
 
begin
  randomize;
  kp := 0;
  ko := 0;
  writeln('Исходный массив:');  
  for i := 1 to n do
  begin
    a[i] := n div 2 - random(n);
    write(a[i]:4);
  end;
  writeln;
  writeln('Измененный массив:');
  for i := 1 to n do
  begin
    if a[i] < 0 then 
    begin
      a[i] := 1;
      inc(kp);
    end  
    else 
    begin
      a[i] := 0;
      inc(ko);
    end;  
    write(a[i]:4);
  end;
  writeln;
  writeln('0: ', ko, ' 1: ', kp);
end.