Поменять строчку и столбец в двух матрицах(PascalABC.NET)

[Максим лёг]

Нужно выполнить это через процедуру и функцию:

Заданы целочисленные квадратные матрицы A, B размерностью N. Поменять местами строку матрицы A, которая содержит
только положительные элементы и имеет минимальный номер в матрице A, со столбцом матрицы B, номер которого совпадает с номером найденной строки матрицы A. Если строка в матрице A не найдена, то выдать соответствующее сообщение.

[Plague]

Вот начало. Дальше сами!

var
  n := ReadInteger('Введите размерность матриц: ');
  a := MatrRandomInteger(n, n, -10, 10);
  b := MatrRandomInteger(n, n, -10, 10);

begin
  a.Println;
  var k := a.Rows.ToArray.FindIndex(i -> i.All(x -> x >= 0));
  Println(k = -1 ? 'Нет строки удовлетворяющей условию поиска'
                 : 'Номер строки удовлетворяющий условию: ' + k)
end.