Составить алгоритм и программу которая в одномерном массиве состоящем из n вещественных элементов вычисляет

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,min,j,max,j1,s,n,p,c,j2:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
s:=0;
for i:=1 to n do
  if x[i]<0 then s:=s+x[i];
writeln (' Summa elementov <0 =',s);
writeln;
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j1:=i;
                    end;
Writeln (' Maxim element = ',max);
Writeln;
min:=x[1];
for i:=1 to n do
  if x[i]<=min then begin
                    min:=x[i];
                    j:=i;
                    end;
Writeln (' Minim element = ',min);
Writeln;
p:=1;
for i:=(j+1) to (j1-1) do
p:=p*x[i];
writeln (' Proizvedenie =',p);
writeln;
for i:=1 to n do
 begin
   for j2:=1 to n do
    begin
      if (x[j2]>x[j2+1]) then
      begin
    c:=x[j2];
    x[j2]:=x[j2+1];
    x[j2+1]:=c;
      end;
    end;
 end;
writeln (' CoptiPoBka ');
for i:=1 to n do write (x[i],' ');
REadln
end.