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

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