Написать программу на pascal, ! не понимаю,

Объяснение:

PascalABC.NET

begin

 var arr := ArrRandom(100, -99, 99).ToList; //Random array

 var j := ReadInteger();

 if arr.Find(x -> x = j) <> 0 then Println('Finded!')

 else

   arr.Where(x -> x >= j).Count.Println;

 arr.Where(x-> x < 0).Count.Println;

end.

P.S не понятно, что должна выводить программа, если нашла это самое число J, по этому просто пишет "Finded!"