Отыскать количество частей массива целых чисел, великих квадрата первого элемента этого

// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Число частей массива=');
  var a:=ArrRandom(n,-25,25);
  Write('Начальный массив: '); a.Println;
  var k:=a.Where(x-gt;sqr(x)gt;sqr(a[0])).Count;
  if kgt;0 then Writeln
    ('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
  else Writeln
    ('Нет ни 1-го элемента, квадрат которого больше квадрата первого')
end.

Тестовое решение:
Число частей массива=15
Начальный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 частей, квадрат которых больше квадрата первого