Обработка одномерного массива вещественных чисел

Program PR6GMA;
uses CRT;
type massiv=array[1..100] of integer;
Var
a:massiv;
nomer,m,kol,syma,dobytok:integer;
flag:boolean;
ans:char;
Procedure syma_dod(m:massiv;kol:integer;Var flag:boolean;syma:integer);
Var
n:byte;
begin
syma:=0;
flag:=false;
for n:=1 to kol do
if m[n]>0 then begin 
flag:=true;
syma:=syma+m[n];
end; end;
Procedure dobmima(m:massiv;kol:integer;flag:boolean;dobytok:integer);
Var
o:byte;
o_max,o_min,max,min:integer;
Begin
max:=m[1];
min:=m[1];
dobytok:=1;
o_max:=0;
o_min:=0;
flag:=false;
for o:=0 to kol do
begin
        
            if m[o] > max then begin max:= m[o]; o_max:= o; end;
            if m[o] < min then begin min:= m[o]; o_min:= o; end;
end;        
    if o_max < o_min then
begin        for o:= o_max to o_min do
            dobytok:=dobytok* m[o]; end
    else if o_max > o_min then begin
        for o:=o_max downto o_min do
            dobytok:=dobytok*m[o]; end;
            end;
Begin
clrscr;
repeat
write('Введите колличество элементов в масиве (от 0 до 100):');
readln(kol);
if (kol>100) or (kol<=0) then writeln('Ne korektno!!!')
else
Begin
for m:=1 to kol do
Begin write('Введите a[',m,'] : ');
readln(a[m]);
end;
Writeln ('Сумма положительных = ',syma_dod(m,kol,flag,syma));
syma_dod(a,kol,flag,syma);
if flag then writeln('Dobytok = ',dobytok)
else writeln('ALALALA!');
write('Хотите продолжить???(y/n) : ');
readln(ans);
end; 
nomer:=nomer+1;
until ans='n';
writeln('Програма была выполнена :',nomer,' раз!');
readln;
end.

const nMax=100;
type TRealArr = array [0..nMax-1] of Real;
 
function SumPositive(a: TRealArr; n: Integer): Real;
var i: Integer;
begin
  Result:=0; for i:=0 to n-1 do if a[i]>0 then Result:=Result+a[i];
end;
 
function ProdBetween(a: TRealArr; First, Last: Integer): Real;
var i: Integer;
begin
  Result:=1; for i:=First to Last do Result:=Result*a[i];
end;
 
procedure MinMaxAbsIdx(a: TRealArr; n: Integer; var MinIdx, MaxIdx: Integer);
var i, mn, mx: Integer;
begin
  MinIdx:=0; MaxIdx:=0;
  for i:=1 to n-1 do
    if      Abs(a[MinIdx])>Abs(a[i]) then MinIdx:=i
    else if Abs(a[MaxIdx])<Abs(a[i]) then MaxIdx:=i;
end;
 
procedure SortDsc(var a: TRealArr; n: Integer);
var i, j: Integer; t: Real;
begin
  i:=n-1;
  repeat n:=i; i:=0;
    for j:=0 to n-1 do
      if a[j+1]>a[j] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; i:=j;
      end;
  until i=0;
end;
 
var
  a: TRealArr;
  n, i, mni, mxi: Integer;
begin
  repeat Write('N [',1,'..',nMax,']: '); Read(n);
  until n in [1..nMax];
  Write('Введите элементы: ');
  for i:=0 to n-1 do Read(a[i]);
  Write('A =');  for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
  WriteLn('Сумма положительных: ',SumPositive(a,n));
  MinMaxAbsIdx(a,n,mni,mxi);
  if mni>mxi then begin i:=mni; mni:=mxi; mxi:=i; end;
  Inc(mni); Dec(mxi);
  if mni<=mxi
  then WriteLn('Произведение между max и min (по модулю): ',ProdBetween(a,mni,mxi))
  else WriteLn('Между min и max (по модулю) нет элементов');
  SortDsc(a,n);
  Write('A''='); for i:=0 to n-1 do Write(' ',a[i]); WriteLn;
end.