Даны два одномерных массива из целых чисел, различной размерности. Отыскать целую

На языке Pascal.
program average_elems;
var a, b : array[1..1000] of integer; 
n, i, m, sum1, sum2 : integer;
begin
  read(n);
  for i:=1 to n do begin
    read(a[i]);
    sum1 := sum1 + a[i];
    end;
  read(m);
  for i:=1 to m do begin
    read(b[i]);
    sum2 := sum2 + b[i];
    end;
  write(sum1 div n, ' ', sum2 div m, ' ', sum1 div n + sum2 div m);
end.

a, b - первый и 2-ой массивы. n, m - кол-во частей в массивах a и b соответственно, sum1, sum2 - суммы частей в первом и втором массивах соответственно.