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

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