Задана последовательность из n целых чисел. Найти,сколько раз в этой последовательности

program raf105;

var

 a,i,n,c: integer;

 x,x2: boolean;

begin

 write('Введите количество чисел: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 readln(a);

 if a gt;= 0

   then x2:= True

   else x2:= False;

 for i:=2 to n do

 begin

   readln(a);

   if a gt;= 0

     then x:= True

     else x:= False;

   if x lt;gt; x2

     then c:= c+1;

   x2:= x;

 end;

 writeln('Количество конфигураций знака: ',c);

end.

PascalABC 3.4.2