Одномерный массив. Нахождение суммы и произв.элементов

uses crt;
type mas = array[1..255] of integer;
var A: mas;
    i,n,j,imax,imin,sum,max,min,tmp: integer;
begin clrscr;
randomize;
write('Введите n: ');
readln(n); writeln;
min:=100; sum:=1;
writeln('Массив: ');
for i:=1 to n do begin
A[i]:=random(100);
write(A[i]:4);
if A[i]>max then begin
max:=A[i];
imax:=i;
end;
if A[i]<min then begin
min:=A[i];
imin:=i;
end;
end;
writeln; writeln;
if imax>imin then
for i:=imin+1 to imax-1 do sum:=sum*A[i];
if imax<imin then
for i:=imax+1 to imin-1 do sum:=sum*A[i];
writeln('Максимальный: ',max);
writeln('Минимальный: ',min);
writeln('Произведение: ',sum);
writeln;
for j:=1 to 2*n do
for i:=1 to n-1 do
if A[i]>A[i+1] then begin
tmp:=A[i];
A[i]:=A[i+1];
A[i+1]:=tmp;
end;
writeln('Упорядоченный массив: ');
for i:=1 to n do write(A[i]:4);
readkey
end.

uses crt;
type mas = array[1..255] of integer;
var A: mas;
    i,n,sum: integer;
begin clrscr;
randomize;
write('Ââåäèòå n: ');
readln(n); writeln;
writeln('Ìàññèâ: ');
for i:=1 to n do begin
A[i]:=random(100)-50;
write(A[i]:4);
if A[i]<0 then sum:=sum+A[i];
end;
writeln; writeln;
writeln('Ñóììà îòðèöàòåëüíûõ: ',sum);
end.