Дано: массивы а(10),в(15). поменять местами их первые положительные элементы . для нахождения первого положительного элемента и его номера в массиве использовать подпрограмму. сделать в паскале

//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.