Вычислить сумму положительных элементов массива

uses crt;
const n=20;
var a:array[1..n] of integer;
      i,sum:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(30)-10;
write(a[i]:4);
writeln;
end;
for i:=1 to n do
If a[i]>0 then begin sum:=sum+a[i]; end;
writeln('Summa=',sum);
readln;
end;

var
a:array [1..20] of integer;
i,max,n,min,s,maxi,mini,pr,c,j:integer;
begin
 {Заполнем массив случайными числами в диапозоне от 0 до 99 и выводим его}
  writeln('Введите размер массива');
  readln(n);
  for i:=1 to n do
    a[i]:=random(100)-10;
      writeln('Исходный массив');
   for i:=1 to n do
      write(a[i]:4);
    writeln;
    s:=0;
   for i:=1 to n do
     if a[i] > 0 then
       s:=s+a[i];
   min:=a[i]; mini:=1;
   max:=a[i]; maxi:=1;
    for i:=1 to n do  begin
      if a[i] > max then begin
         max:=a[i]; maxi:=i;
      end;
      if a[i] < min then begin
         min:=a[i]; mini:=i;
      end;
    end;
      pr:=1;
    for i:=mini to maxi  do
       pr:=pr*a[i];
   {Сортировка методом пузырька}
    for i:=1 to n-1 do begin
      for j:=n-1 downto i do
        if a[j] > a[j+1] then begin
          c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c;
        end;
    end;
   writeln('Произведение между мин и макс=',pr);
   writeln('Отсортированный массив');
   for i:=1 to n do
       write(a[i]:4);
end.