Составить программу вычисления функции

program Project1;
 
uses
  CRT;
const
  maxelem = 70;
type
  TArr1int = array [1..maxelem] of integer;
 
procedure InfInArr(var arr: TArr1int; nn: integer);
{Процедура для ввода пользователем информации в одномерный массив}
var
  i: integer;
begin
  for i:= 1 to nn do
    begin
      write('Введите значение элемента [',i,']: ');
      Readln(arr[i]);     { Ввод значений в массив.}
    end;
end;
 
 
procedure InfOutArr(arr: TArr1int; nn: integer);
{Процедура для вывода одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    begin
      write(' ',arr[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  Writeln;
end;
 
procedure SumKol(arr: TArr1int; nn: integer; var s,k: integer);
{Процедура для вычисления суммы и количества положительных элементов массива}
var
  i: integer;
begin
  k:= 0;
  s:= 0;
  for i:= 1 to nn do
    if arr[i] > 0 then    {Условие выбора положительных значений}
      begin
        s:= s + arr[i];   {Вычисление суммы}
        inc(k);           {Подсчет количества}
      end;
end;
 
var
  a,b: TArr1int; { Переменные для хранения значения массивов}
  s1,s2: integer;  { Переменные для хранения значения суммы}
  k1,k2: integer;   { Переменные для хранения значений количества положительных элементов}
  z: real;         { Переменная для хранения значения результата вычислений}
begin
  writeln('Введите значения элементов массива A: ');
  InfInArr(a,70);    {Ввод значений элементов массива}
  clrscr;
  writeln('Введите значения элементов массива B: ');
  InfInArr(b,40);
  clrscr;
  writeln('Массив А:');
  InfOutArr(a,70);     { Вывод элементов массива A в консоль }
  writeln('Массив В:');
  InfOutArr(b,40);     { Вывод элементов массива B в консоль }
  SumKol(a,70,s1,k1);  { Вычисление суммы и количества положительных элементов массива A}
  SumKol(b,40,s2,k2);  { Вычисление суммы и количества положительных элементов массива B}
  if  (s1+s2) <> 0 then { Условие для проверки знаменателя на нулевое значение}
    begin
      Z:= (k1*k2)/(s1+s2);
      writeln('Результат вычислений: ',z:0:2);
    end
  else
    writeln('Функция не определена');
  Readln;
end.