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

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;

Ну вроде так ... Хотя ничего не обещаю)