Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака

var n,i,k:longint;
    a,b:array[1..100] of longint;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  for i:=2 to n do
    begin
      if a[i]*a[i-1]<0 then begin
        k:=k+1;
        b[k]:=i;
      end;
    end;
    writeln(k);
  for i:=1 to k do
    write(b[i],' ');
end.

program name;
var
x: array [-1..100] of real;
y: array [-1..100] of real;
i, n, a, k: integer;
begin
a:=1;
k:=0;
write ('Вводим чесел: ');
read (n);
for i:=1 to n do begin
write (i, ' число: '); 
read (x[i])end;
for i:=1 to n do begin
if x[i]*x[i-1]<0  then y[a]:=i;
a:=a+1;
end;
write ('Знак меняется у: ');
for a:=1 to n do begin 
if y[a]>0 then write (y[a], ' ');
if y[a]=0 then k:=k+1 end;
if k=n then write ('нет такого');
write (' числа');
readln;
end.

program name;
var   x, y: array [0..100] of real;
      i, n, a, k, s: integer;
begin
a:=1;
k:=0;
write ('Вводим чесел: ');
read (n);
   for i:=1 to n do begin
   write (i, ' число: '); 
   read (x[i])end;
      for i:=1 to n do begin
      if x[i]*x[i-1]<0 then
      y[a]:=i;
      a:=a+1;
            end;
write ('Знак меняется у: ');
   for a:=1 to n do begin 
   if y[a]>0 then begin 
                  s:=s+1; 
                  write (y[a], ' ')end;
   if y[a]=0 then k:=k+1 end;
      if k=n then write ('нет такого');
write (' числа');
writeln;
writeln ('Менятся знак: ', s, ' раз(а)');
readln;
end.