Runtime error 207. В чём причина? - Pascal

Формулировка задачи:

Program Lab6;
        Var
        f:text;
        name:string[12];
        Y:array[-15..20] of integer;
        k,i,Nb,Ne:integer;
        r:integer;
        G:real;
        Fl:boolean;
        stepin:integer;
Begin
        Writeln('Vvedit imja fajla, v yakij bydyt vvoditisya ');
        Writeln('Vihidni danni ta rezyltaty rozrahynkiv’ ,‘CON');
        readln(name);
        Assign(f,name);
        Rewrite(f);
        writeln(f,'Laboratorna robota N 6');
        writeln(f,'Vikonav student grupi');
 
                repeat
                writeln ('Vvedit Nb (pochatkovij element masivy)');
                readln (Nb);
                writeln ('Vvedit Ne (kincevij element masivy)');
                readln (Ne);
                if ((Nb>-16) and (Ne<21)) then break;
                writeln (f,'Pomilka, povtorit vvedennya');
                until false;
 
                for i:=-15 to 20 do
                begin
                write (f,'Vvedit A[',i,'] ');
                readln (Y[i]);
                end;
 
                writeln (f,'Masiv Y');
                for i:=-15 to 20 do
                write (Y[i]:6, ' ');
                writeln;
 
                repeat
                Fl:=true;
                for i:=-15 to 19 do
                if Y[i]<Y[i+1] then
                begin
                R:=Y[i];
                Y[i]:=Y[i+1];
                Y[i+1]:=R;
                Fl:=false;
                end;
                until Fl;
                writeln ('Masiv pislya sortyvannya');
                for i:=-15 to 20 do
                write (Y[i]:6,' ');
                writeln;
 
                k:=1;
                stepin:=0;
                for i:=Nb to Ne do
                begin
                if Y[i]>0 then
                k:=k*Y[i];
                stepin:=stepin+1;
                end;
 
                G:=exp((1/stepin)*ln(k));
                writeln ('Serednye geometrichne', G:6:2);
                readln;
 
        Close(f);
        Readln
End.

После ввода всех значений массива, напротив формулы G:=exp((1/stepin)*ln(k)) (а именно в самом начале строки) появляется ошибка 207. Что может быть не так? P.S. Если это поможет в решении моей проблемы - вот задание этой задачи: Найти среднее геометрическое значение положительных членов массива Y(n), где -15<=n<=20.

Решение задачи: «Runtime error 207. В чём причина?»

textual
                            Листинг программы 
                        

                            ...
Randomize;
for i:=-15 to 20 do
  Y[i]:=random(20)-10;{случайные значения в диапазоне [-10; 9)}
...
                        