Подпрограммы,вычислить мах элементы массивов maxA maxB

const
 n = 10;
type
 TArr = array[1..n] of integer;
var
 arrA, arrB: TArr;
 i, j: integer;
 
procedure MaxP(arr: TArr; n: integer);
var
 max, i: integer;
begin
 max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i;
 writeln(arr[max]);
end;
 
function MaxF(arr: TArr; n: integer): integer;
var
 i, max: integer;
begin
 max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i;
 MaxF:=arr[max];
end;
 
begin
 randomize;
 writeln('Массив А: '); 
  for i:=1 to n do
   begin
    arrA[i]:=random(15);
    write(arrA[i], ' ');
   end;
 writeln;
 writeln('Массив В: ');
  for j:=1 to n do
   begin
    arrB[j]:=random(15);
    write(arrB[j], ' ');
   end;
 writeln;
 write('Максимальный элемент массива А: ');
 MaxP(arrA, n);
 write('Максимальный элемент массива В: ');
 MaxP(arrB, n);
 writeln('Максимальный элемент массива А: ', MaxF(arrA, n));
 write('Максимальный элемент массива В: ', MaxF(arrB, n));
end.