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

//PascalABC.NET 3.1 сборка 1239
begin
    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.