Определить, сколько раз в последовательности меняется знак

[Siroga35]

Дана последовательность ненулевых целых чисел,
оканчивающаяся нулем. Определить, сколько раз в этой пос
ледовательности меняется знак. Например, в последователь
ности 10, –4, 12, 56, –4 знак меняется 3 раза.
const n=10;
var a:array[1..n+1] of integer;
i,kol:integer;
flag:boolean;
begin
for i:=1 to n do
readln(a[i]);
writeln;
a[n+1]:=0;
i:=1;
kol:=0;
if a[i]>0 then flag:=true else flag:=false;
while a[i]<>0 do
begin
if flag and (a[i]<0) then begin
inc(kol);
flag:=false;
end
else if (not(flag)) and (a[i]>0) then begin
inc(kol);
flag:=true;
end;
if a[i]>0 then flag:=true else flag:=false;
inc(i);
end;
writeln(kol);
end.

[Stilet]

Мало что понял в твоем коде, вот предлагаю свой простенький вариант:

const a:array[1..5] of integer=(10, -4, 12, 56, -4);
var k,i:byte;
begin k:=0;
 for i:=2 to length(a) do begin
   if a[i]*a[i-1]<0 then inc(k);
 end;
 writeln(k);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.