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

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

program sort;
 uses crt;
 const n=10;
 var m,k:array[1..n] of integer;
 i,j:integer;
 tmp,ln:integer;
 Begin
      clrscr;
      writeln('Vedit massiv');
      for i:=1 to n do
      read(m[i]);
          for i:=1 to n-1 do
          for j:=i+1 to n do
              if (m[j]>m[i]) then
                begin
                   tmp:=m[i];
                   m[i]:=m[j];
                   m[j]:=tmp;
              end;
      writeln('vidsort mas');
      for i:=1 to n do
      writeln(m[i],' ');
      readkey;
end.

a[i]:=random(30)-10;

write(a[i],' ');

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,imx,imn:byte;
    p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  repeat
  a[i]:=random(20)-9;
  until a[i]<>0;//генерируем числа без нолей
  write(a[i],' ');
 end;
writeln;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if abs(a[i])>abs(a[imx])then imx:=i;
  if abs(a[i])<abs(a[imn])then imn:=i;
 end;
writeln('Минимальный  по модулю a[',imn,']=',a[imn]);
writeln('Максимальный по модулю a[',imx,']=',a[imx]);
if abs(imn-imx)=1 then write('Между максимальным и минимадьным нет элеменетов.')
else
 begin
  p:=1;
  if imn<imx then
  for i:=imn+1 to imx-1 do p:=p*a[i]
  else if imx<imn then
  for i:=imx+1 to imn-1 do p:=p*a[i];
  write('Произведение между макс. и мин.=',p);
 end;
readln
end.