Определить значение выражения s(n,a)/s(m,b), где s(n,a) - сумма элементов массива а размерности n

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=-5+random(2*n);
end;
procedure print(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
function sum(var x:mas;n:integer):integer;
 var i,s:integer;
begin
 s:=0;
 for i:=1 to n do
  s:=s+x[i];
 sum:=s;
end;
var a,b:mas;
    n,m,s:integer;
begin
 repeat
  write('Ðàçìåð ìàññèâ À n=');
   readln(n);
 until n in [1..nmax];
 repeat
  write('Ðàçìåð ìàññèâà B m=');
   readln(m);
 until m in [1..nmax];
 writeln('Ìàññèâ À :');
 invect(a,n);
 print(a,n);
 writeln;
 writeln('Ìàññèâ Á :');
 invect(b,m);
 print(b,m);
 writeln;
 writeln('Ñóììà ìàññèâà À = ',sum(a,n));
 writeln('Ñóììà ìàññèâà Á = ',sum(b,m));
 writeln('Ðåçóëüòàò = ',sum(a,n)/sum(b,m):0:2);
end.

uses crt; //стантартный модуль
const nmax=20;  //максимальный размер массива , задан в константе
type mas=array[1..nmax] of integer; // тип массив
procedure invect(var x:mas;n:integer); //процедура заполнение массив
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=-5+random(2*n);
end;
procedure print(var x:mas;n:integer);//вывод массива
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
function sum(var x:mas;n:integer):integer;// фун-ция которая считает сумму элементов массив
 var i,s:integer;
begin
 s:=0;
 for i:=1 to n do
  s:=s+x[i];
 sum:=s;
end;
var a,b:mas;
    n,m,s:integer;
begin
 repeat                     //цикл который будет спрашивать
  write('Размер массив А n='); //у пользователя размер массива
   readln(n);
 until n in [1..nmax];   //выход когда размер введенный будет в интервали от 1..20;
 repeat
  write('Размер массива B m=');
   readln(m);                      //аналогично только для второго массив
 until m in [1..nmax];
 writeln('Массив А :');
 invect(a,n);        //заполняем массив  А
 print(a,n);           //выводим массив А
 writeln;
 writeln('Массив Б :');
 invect(b,m);         //аналогично массиву А
 print(b,m);
 writeln;
 writeln('Сумма массива А = ',sum(a,n));   //выводим сумма массива А
 writeln('Сумма массива Б = ',sum(b,m));//выводим сумму массива Б
 writeln('Результат = ',sum(a,n)/sum(b,m):0:2); //считает значение которое нужно было по условию
end.