Найти среднее значение массивов А[1..5], B[1..5] и сравнить их между собой. Вывести на экран большие из них — Pascal(Паскаль)

program alexq;
uses crt;
type
 mas=array [1..5] of real;
var
 a1,a2: mas;
 i: integer;
 mas1,mas2: real;
 
function array1(ar1:mas):real;
 var
  i: integer;
  sr: real;
 begin
  sr:=0;
  for i:=1 to 5 do
   sr:=sr+ar1[i];
  array1:=sr/5;
 end;
 
function array2(ar2:mas):real;
 var
  i: integer;
  sr: real;
 begin
  sr:=0;
  for i:=1 to 5 do
   sr:=sr+ar2[i];
  array2:=sr/5;
 end;
 
begin
 clrscr;
  write('Vvedite 1 massiv: ');
  for i:=1 to 5 do
   read(a1[i]);
  write('Vvedite 1 massiv: ');
  for i:=1 to 5 do
   read(a2[i]);
 mas1:=array1(a1);
 mas2:=array2(a2);
 if mas1<mas2 then writeln('SR2=',mas2:6:2)
 else write('SR1=',mas1:6:2);
 readkey;
end.