Найти количество элементов массива целых чисел, больших квадрата первого элемента этого массива. Если таких нет, выдать сообщение "поиск неудачен". Паскаль

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

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