Дан одномерный числовой массив. определить в нём число соседств двух чисел разного знака. (паскаль abc)

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Число соседств пар чисел разного знака равно ',
    a.Pairwise.Where(x->x[0]*x[1]<0).Count)
end.

Тестовое решение
n= 15
7 4 42 -46 12 -34 -58 -49 56 46 -20 30 -22 2 -74
Число соседств пар чисел разного знака равно 9

Using System;

namespace old4Test1
{
    class Program
    {
        static void Main()
        {
            Console.WriteLine(IsFirstBiggerThanLast(123456));
            Console.WriteLine(IsFirstBiggerThanLast(62514));
            Console.WriteLine(IsFirstBiggerThanLast(1));
            Console.WriteLine(IsFirstBiggerThanLast(12));
            Console.WriteLine(IsFirstBiggerThanLast(105));

            Console.ReadKey();
        }

        // Определите,какая цифра числа-первая или последняя больше. C#
        private static bool IsFirstBiggerThanLast(int number)
        {
            Console.WriteLine(number);
            var s = number.ToString();
            return s[0] > s[s.Length - 1];
        }
    }
}

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('Pushkin.txt');
  Writeln('*** Текст в файле ***',NewLine);
  a.Println(NewLine);
  var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;
  a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;
  WriteLines('Result.txt',a);
  Writeln(NewLine,'*** Новый файл ***',NewLine);
  ReadLines('Result.txt').Println(NewLine)
end.

Пример:

*** Текст в файле ***

Если жизнь тебя обманет,
Не печалься, не сердись!
В день уныния смирись:
День веселья, верь, настанет.

Сердце в будущем живет;
Настоящее уныло:
Всё мгновенно, всё пройдет;
Что пройдет, то будет мило.
   (А.С. Пушкин, 1825)

*** Новый файл ***

Настоящее уныло: