поменять местами первое положительное число с последним отрицательным числом в одномерном массиве из N целочисленых элементов (программа для PascalABC )

//PascalABC.NET 3.1 сборка 1239begin    var a:=ArrRandomInteger(10,-10,10);    Println(a);        var i :=a.FindIndex(x->x>0);    var j:=a.FindLastIndex(x->x<0);    swap(a[i], a[j]);    Println(a);end.