Вещественное деление на ноль

program lab_9;
uses crt;
const k=70;
var s,code,n,i: Integer;
    z:string;
    cg: real;
    a: array[1..k] of integer;
procedure vvod (z:string;n,code,i:integer);
begin
  writeln(' Программа вычисляет среднее геометрическое');
  repeat
     repeat
       writeln (' Введите количество чисел: ');
       Readln(Z);
       val (Z,n,code);
       if code<>0 then
          writeln('Ошибка ввода! ')
       else
         if n<0 then
             writeln(' Ошибка ввода!')
         else
            if n=0 then
               writeln(' Ошибка ввода!');
      until code=0;
  until n>0;
  writeln(' Введите числа ');
  for i:=1 to n do
  begin
    repeat
      writeln(' Введите A ','[',i,']'); readln (z);
      val (Z,a[i],code);
      if code<>0 then
          writeln(' Ошибка ввода! ')
      else
         if a[i]<0 then
            writeln(' Ошибка ввода!')
         else
           if n=0 then
              writeln(' Ошибка ввода!');
     until (a[i]>0) and (code=0);
  end;
 writeln(' Вы ввели : ');
  for i:=1 to n do writeln(a[i]);
end;
procedure sg(i,n,s:integer; var cg:real);
begin
 s:=1;
 for i:=1 to n do
  begin
     write(a[i],' ');
     s:=s*a[i];
  end;
  cg:= exp(1/n*ln(s));
  writeln;
end;
  procedure vyvod(cg:real);
    begin
      writeln('Среднее геометрическое =',cg:5:2);
    end;
begin
  vvod(z,n,code,i);
  writeln;
  sg(i,n,s,cg);
  writeln;
  vyvod(cg);
  readln;
end.

uses
  crt;
 
const
  k=70;
 
var s,code,n,i: Integer;
    z:string;
    cg: real;
    a: array[1..k] of integer;
 
procedure vvod ;
begin
  writeln(' Программа вычисляет среднее геометрическое');
  repeat
     repeat
       writeln (' Введите количество чисел: ');
       Readln(Z);
       val (Z,n,code);
       if code<>0 then
          writeln('Ошибка ввода! ')
       else
         if n<0 then
             writeln(' Ошибка ввода!')
         else
            if n=0 then
               writeln(' Ошибка ввода!');
      until code=0;
  until n>0;
  writeln(' Введите числа ');
  for i:=1 to n do
  begin
    repeat
      writeln(' Введите A ','[',i,']'); readln (z);
      val (Z,a[i],code);
      if code<>0 then
          writeln(' Ошибка ввода! ')
      else
         if a[i]<0 then
            writeln(' Ошибка ввода!')
         else
           if n=0 then
              writeln(' Ошибка ввода!');
     until (a[i]>0) and (code=0);
  end;
 writeln(' Вы ввели : ');
  for i:=1 to n do writeln(a[i]);
end;
 
procedure sg;
begin
 s:=1;
 for i:=1 to n do
  begin
     write(a[i],' ');
     s:=s*a[i];
  end;
  cg:= exp(1/n*ln(s));
  writeln;
end;
 
procedure vyvod;
begin
  writeln('Среднее геометрическое =',cg:5:2);
end;
 
begin
  vvod;
  writeln;
  sg;
  writeln;
  vyvod;
  readln;
end.