//PascalABC.Net 3.1 сборка 1200
function FirstPositive(m: array of integer): integer;
begin
FirstPositive := m.FindIndex(x -> x > 0);
end;
begin
var a := ArrRandomInteger(10, -50, 50);
Println(a);
var b := ArrRandomInteger(15, -50, 50);
Println(b);
Swap(a[FirstPositive(a)], b[FirstPositive(b)]);
Writeln('Результат');
Println(a);
Println(b);
end.