Выполнить заданные действия с одномерным массивом

const
  n = 18;
var
  i, j, k, s, p, imin, imax: integer;
  a: array[1..n] of integer;
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      a[i] := -9 + random(19);
      write(a[i]:3)
    end;
  writeln;
  s := 0;
  imin := 1;
  imax := 1;
  for i := 1 to n do
    begin
      if a[i] < 0 then s := s + a[i];
      if a[i] < a[imin] then imin := i
      else
        if a[i] > a[imax] then imax := i
    end;
  if s < 0 then writeln('Сумма отрицательных элементов = ', s)
  else writeln('Отрицательные элементы не найдены');
  if imin > imax then
    begin
      i := imin;
      imin := imax;
      imax := i
    end;
  if imax - imin >= 2 then
    begin
      p := 1;
      for i := imin + 1 to imax - 1 do p := p * a[i];
      writeln('Произведение элементов, находящихся между минимумом и максимумом = ', p)
    end
  else writeln('Нет элементов между максимальным и минимальным');
  k := n;
  for i := n downto 1 do
    if a[i] = 0 then
      begin
        for j := i to k - 1 do a[j] := a[j+1];
        dec(k)
      end;
  if k < n then
    begin
      writeln('Преобразованный массив:');
      for i := 1 to k do write(a[i]:3);
      writeln
    end
  else writeln('Массив не содержит нулей');
  readln
end.

k:=0;
for i:=1 to n do
  if a[i]<>0 then begin
    Inc(k); a[k]:=a[i];
  end;