Нужно составить программу на завтра

[Grey64]

Дано натуральное число n, действительные числа A1..An. В последовательности A1..An определить число соседств двух чисел разного знака. Заранее спасибо

[Don Karleone]

const
  k = 255;

var
  S: array [1..k] of real;
  i, j, n: byte;

begin
  write('n = ');
  readln(n);
  writeln;
  for i:=1 to n do
    readln(S[i]);
  j:=0;
  for i:=1 to n - 1 do
    if ((S[i]<0) and (S[i+1]>=0)) or ((S[i]>=0) and (S[i+1]<0)) then Inc(j);
  writeln;
  writeln('j = ',j);
  readln;
end.

Спасибо в корман не положишь. )