Даны два одномерных массива. Написать функцию, которая определит, среднее арифметическое значение какого массива больше

function srarifm; var mas1,mas2 : array[1..100000] of longint; i,n1,n2 : longint; sum1,sum2:real; begin  sum1:=0; sum2:=0;  for i:=1 to n1 do begin   sum1:=sum1+mas1[i];  end;  for i:=1 to n2 do begin   sum2:=sum2+mas2[i];  end; if sum1/n1>sum2/n2 then writeln(1) else if sum2/n2>sum1/n1 then writeln(2) else writeln(=) end; Ну вроде так... Хотя ничего не обещаю)