Произвести заданные действия с одномерным массивом

const
  n = 50;
var
  y: array[1..n] of real;
  i, j, m, p1, p2: integer;
  s: real;
begin
  m := 1;
  writeln('Массив Y:');
  for i := 1 to n do
    begin
      y[i] := sin(2 * i) + cos(i);
      write(y[i]:8:4);
      if abs(y[i]) > abs(y[m]) then m := i
    end;
  writeln;
  writeln('Максимальный по модулю элемент: Y[', m, '] = ', y[m]:0:4);
  p1 := 1;
  while (p1 <= n) and (Y[p1] <= 0) do inc(p1);
  p2 := p1 + 1;
  while (p2 <= n) and (Y[p2] <= 0) do inc(p2);
  if p2 <= n then
    begin
      writeln('Индекс первого положительного элемента = ', p1);
      writeln('Индекс второго положительного элемента = ', p2);
      if p1 + 1 < p2 then
        begin
          s := 0;
          for i := p1 + 1 to p2 - 1 do s := s + y[i];
          writeln('Сумма элементов, расположенных между ними, равна ', s:0:4)
        end
      else writeln('Невозможно вычислить сумму элементов, расположенных между ними')
    end
  else
    if p1 <= n then writeln('Массив содержит только один положительный элемент')
    else writeln('Массив не содержит положительных элементов');
  m := n;
  for i := n downto 1 do
    if y[i] = 0 then
      begin
        dec(m);
        for j := i to m do y[j] := y[j+1];
        y[m+1] := 0
      end;
  if m < n then
    begin
      writeln('Преобразованный массив:');
      for i := 1 to n do write(y[i]:8:4);
      writeln
    end
  else writeln('Массив не содержит нулевых элементов')
end.