одномерные массивы (паскаль)(исправить))

[Rfn.if]

Дана последовательность из n вещественных чисел. Если в результате замены отрицательных элементов последовательности их квадратами элементы будут образовывать неубывающую последовательность, то получить сумму элементов исходной последовательности, в противном случае получить их произведение.

program lr7z7;

const n =10;
var
 i:integer;
a:array [1..n] of real;
sum, pr:real;
flag:boolean;
begin


for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
sum:=0;
pr:=1;
while (i<=n) do
begin
if a[i]<0 then a[i]:= a[i]*a[i];
inc(i);
end;
flag:=true;
while (i<=n) do
begin
if a[i]<=a[i+1] then flag := false;
  break;
inc(i);
end;
if flag then while (i<=n) do
begin
sum:=sum+a[i];
inc(i);
end;
writeln ('summa =',sum)
else while (i<=n) do
begin
 pr:=pr*a[i];
 inc(i);
 end;
 writeln ('proizvedenie =',pr);
 readln;
 end.

[Pein95]

и что не работает?