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

//PascalABC.Net 3.1 сборка 1200function 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.