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

uses crt;
var
   a:array[1..100] of real;
   i,j,per,pos,n:integer;
   s:real;
begin
clrscr;
write('Введите n=');
readln(n);
writeln('-');
s:=1;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(51)-10+random;
  if (a[i]<0)and (s<>0) then
   begin
    per:=i;
    s:=0;
   end;
  if (a[i]<0) then pos:=i;
  write(a[i]:8:2);
 end;
writeln;
s:=0;
for i:=per+1 to pos-1 do
 s:=s+a[i];
writeln('Сумма всех элементов ',s:0:2);
writeln('Преобразованный массив');
for i:=1 to n do
 if (abs(a[i])>1) then
  begin
   a[i]:=0;
   write(a[i]:8:2);
  end;
readln
end.