Помогите решить задачу по Pascal. Дано числа A1, A2,..., A9; B1, B2,..., B11....

Question

Помогите решить задачу по Pascal.
Дано числа A1, A2,..., A9; B1, B2,..., B11. Максимальный элемент первой последовательности заменить на максимальный элемент второй последовательности и наоборот.
ПРОГРАММУ ОФОРМИТЬ В ВИДЕ !!!!"ПРОЦЕДУРЫ"!!!!

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

procedure AB(a,b:array of integer);
begin
  var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
  var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;

begin
  var a:=ArrRandom(9,-99,99);
  Write('A: '); a.Println;
  var b:=ArrRandom(11,-99,99);
  Write('B: '); b.Println;
  AB(a,b);
  Write('A: '); a.Println;
  Write('B: '); b.Println;
end.

Пример
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55