В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов массива; 2) сумму положительных элементов массива, расположенных до макси-мального элемента.Изменить порядок следования элементов в массиве на обратный — Pascal(Паскаль)

program Lab5;
Uses crt;
 Var x:array [1..100] of real;
     i,j,n:integer;
     max,s,p:real;
begin
clrscr;
writeln ('================================================================');
Writeln (' Vvedite kolichestvo elementov ');
writeln ('================================================================');
Readln (n);
 for i:=1 to n do begin
 
                  write ('Vvedite ',i, ' element= ');
                  Readln (x[i]);
                  end;
 
 
p:=1;
for i:=1 to n do
 if x[i]<0 then p:=p*x[i];
writeln ('================================================================');
writeln (' Proizvedenie otricatelnyx elementov = ',p);
writeln ('================================================================');
Max:=x[1];
for i:=1 to n do
  if x[i]>=max then begin
                    max:=x[i];
                    j:=i;
                    end;
writeln ('================================================================');
Writeln (' Maxim element = ',max);
writeln ('================================================================');
 
s:=0;
for i:=1 to j-1 do
  if x[i]>=0 then s:=s+x[i];
Writeln ('  ');
Writeln ('  ');
writeln ('================================================================');
writeln (' Summa polozhitelnyx elementov =',s);
writeln ('================================================================');
Writeln ('  ');
Writeln ('  ');
writeln ('================================================================');
write('Vivod massiva v obratnom poriadke:');
for i:=0 to n-1 do
write(round(x[n-i]),' ');
writeln('  ');
writeln ('================================================================');
Readln;
end.