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

program zz1;

var i, max1, max2, num1, num2, k:integer; / / задаем переменные целого типа

a:array [1 ... 10] of integer;

b:array [1 ... 15] of integer;

procedure mm (a, j1:integer; var b, j2:integer);

begin

if a > b then begin b:=a; j2:=j1; end;

end;

begin

for i:=1 to 10 do / / записываем в массив числа случайным образом

a[i]:=random (21);

for i:=1 to 10 do / /выводим массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to 15 do / / записываем в массив числа случайным образом

b[i]:=random (21);

for i:=1 to 15 do / /выводим массив на экран

write (b[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to 10 do / / находим максимальный элемент и его номер

mm (a[i], i, max1, num1);

for i:=1 to 15 do / / находим максимальный элемент и его номер

mm (b[i], i, max2, num2);

k:=a[num1]; a[num1]:=b[num2]; b[num2]:=k;

for i:=1 to 10 do / /выводим массив на экран

write (a[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to 15 do / /выводим массив на экран

write (b[i],' ');

end.