Помогите написать программку по информатике! Дана непустая последовательность целых чисел,

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

begin
  var n:=ReadInteger('Длина последовательности: ');
  var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1
  a.Println;
  if a.Where(x-gt;xgt;=0).Distinct.Countgt;1 then
    Writeln('Есть отличающиеся элементы')
  else Writeln('Все элементы одинаковы')
end.

Образцы
Длина последовательности:  4
1 1 1 -1
Все элементы одинаковы

Длина последовательности:  5
0 1 1 0 -1
Есть отличающиеся элементы