Найти среднее геометрическое 4-х наибольших отрицат. эл-ов

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,j,imx:byte;
    mx:integer;
    sg:real;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
writeln;
f:=true;{наличие 4х отрицательных}
sg:=1;{ср. геом.}
j:=1;{ищем первое}
while(j<=4)and f do{пока не 4 и пока есть отрицательные}
 begin
  mx:=-maxint-1;{за макс. самое маленькое число}
  imx:=0;{индекс очередного максимального}
  for i:=1 to n do
  if(a[i]<0)and(a[i]>mx) then
   begin
    mx:=a[i];{находим макс.}
    imx:=i;{его индекс}
   end;
  if imx<>0 then writeln('макс.',j,'=',mx);{если есть, выводим}
  sg:=sg*mx;{домножаем}
  a[imx]:=0;{пишем на его место ноль}
  if imx=0 then f:=false{если не нашли очередного}
  else j:=j+1;{если нашли, дальше}
 end;
if not f then write('В массиве нет 4х отрицательных элементов')
else
 begin
  sg:=exp(ln(sg)/4);
  write('Среднее геометрическое первых 4х максимальных отрицательных=',sg:0:2);
 end;
readln
end.