Дано: Массивы А(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.