Массив в паскале!

[ОДИНОЧЕСТВО В СЕТИ]

 const n=5;
 var a:array[1..n] of real;i:integer;
 mx,mn:integer;
min,max,sum:real;
begin          mn:=1;mx:=1;sum:=1;
 for i:=1 to n do 
  a[i]:=random(200)/5;
min:=a[mn];
max:=a[mx];
for i:= 1 to n do begin
  if abs(a[i])<abs(a[mn]) then begin mn:=i; min:=a[i];end;
  if abs(a[i])>abs(a[mx]) then begin mx:=i; max:=a[i]end;
  write(a[i]:8:2);
 end;
 writeln;
 if mn<mx then
  for i:=mn to mx do begin
   sum:=sum*a[i];
  end
 else
  for i:=mn downto mx do begin
   sum:=sum*a[i];
  end;
 writeln('sum=',sum:5:2);

 Readln;
end.

[Rusl92]

что-то ты темнишь Гамбит, потому что просто заменив "+" на "*" в коде - все должно работать верно оО
контрпример дай, на котором работает "плохо"?