В массиве Z длины m обнулить значение минимального элемента. Определить количество отрицательных элементов массива

//PascalABC.NET 3.1 сборка 1239begin    var a := ArrRandom(ReadInteger('m='), -50, 50);    a.Println;    a[a.IndexMin] := 0;    a.Println;    Writeln('x<0: ', a.Count(x -> x < 0));end.