Вычислить среднегармоническое значение ненулевых элементов первой трети массива

uses
  crt;
 
const
  Max_Size = 10;
 
var
  a: array [1..Max_Size] of integer;
  i, s: integer;
 
begin
  for i := 1 to Max_Size do
  begin
    a[i] := Random(10);
    write(a[i], ' ');
  end;
  s := 0;
  writeln();
  for i := 1 to (Max_Size div 3) do
    if (a[i] <> 0) then s := s + a[i];
  writeln(s div ((Max_Size div 3)));
end.

  writeln(s div ((Max_Size div 3)));

  writeln(exp((ln(s)) / (Max_Size div 3)));  //*

 s:=0;
 s := s + a[i];

 s:=1;
 s := s * a[i];

  a: array [1..Max_Size] of integer;
  i, s: integer;

  a: array [1..Max_Size] of real;
  i: integer;
  s: real;

D:array[1..38] of integer; //задаем массив
 
For i:=1 to 38 do
Begin
 a[i]=Random(7)-Random(-9);  // Генератор случайных чисел
write(a[i], '  ');  //Вывод на экран массива.
End;
 
if a[i]<>0 then //Это не нулевые элементы

uses
  crt;
 
const
  Max_Size = 38;
 
var
  D: array [1..Max_Size] of integer;
  i: integer;
  s: real;
 
begin
  for i := 1 to Max_Size do
  begin
    D[i] := Random(7) - Random(9);
    write(D[i], ' ');
  end;
  s := 1;
  writeln();
  for i := 1 to (Max_Size div 3) do
    if (D[i] <> 0) then s := s * D[i];
  if ((Max_Size div 3) mod 2 <> 0) or (s > 0) then
    writeln(exp((ln(s)) / (Max_Size div 3))) else
    writeln('Подкорневое выражение неверно');
end.