Сумма элементов вектора между min и последним элементом вектора

program zadanie4;
uses crt;
 var 
  A: array [1..20] of integer;
  min,sum,i,p,o : integer;
Begin
   begin
    for i:=1 to 20 do A[i]:=Random(25)-10;
     write ('Изначальный массив: ' );
      for i:=1 to 20 do write (A[i]:6);
      writeln;
      writeln;
   end;
   begin
     for i:=1 to 20 do
       if A[i]>0 then
       p:=p+A[i] else o:=o+A[i];
       Writeln('Сумма положительных чисел: ',p:5);
       Writeln('Сумма отрицательных чисел: ',o:5);
   end;
   begin
     min:=a[1];
     for i:=2 to 20 do
        begin
         if min>a[i] then
           min:=a[i];
        end;
     writeln('Минимальный элемент массива: ',min:5);
     writeln('Произведение суммы положительных чисел на минимальный элемент: ',p*min);
     writeln('Произведение суммы отрицательных чисел на минимальный элемент: ',o*min);
   end;
   begin
    В ЭТОМ МЕСТЕ У МЕНЯ ПРОБЛЕМА\\sum:=0;
                                                    \\for i:=min+1 to A[20]-1 do sum:=sum+A[i];
   end;
   begin
    writeln('Массив без 16-ого элемента: ');
    for i:= 1 to 16 - 1 do write(a[i]:6, ' ');
      for i:= 16 to 20-1 do
        begin
         a[i] := a[i + 1];
         write(a[i]:6, ' ')
        end;
   end;
end.

program zadanie4;
uses
  crt;
var
  A: array [1..20] of integer;
  imin,min,sum,i,p,o : integer;
Begin
  writeln('Изначальный массив: ' );
  for i:=1 to 20 do
    begin
      A[i]:=Random(25)-10;
      write (A[i]:4);
    end;
  writeln;
  for i:=1 to 20 do
    if A[i]>0 then
      p:=p+A[i]
    else
      o:=o+A[i];
  Writeln('Сумма положительных чисел: ',p:5);
  Writeln('Сумма отрицательных чисел: ',o:5);
  min:=a[1];
  for i:=2 to 20 do
    if a[i]<min then
      begin
        min:=a[i];
        imin:=i;
      end;
  writeln('Минимальный элемент массива: ',min:5, ', его номер: ',imin);
  writeln('Произведение суммы положительных чисел на минимальный элемент: ',p*min);
  writeln('Произведение суммы отрицательных чисел на минимальный элемент: ',o*min);
    //В ЭТОМ МЕСТЕ У МЕНЯ ПРОБЛЕМА\\
  sum:=0;
  for i:=imin+1 to 20 do
    sum:=sum+A[i];
  writeln('Сумма: ',sum:5);
  writeln('Массив без 16-ого элемента: ');
  for i:= 1 to 16 - 1 do
    write(a[i]:4);
  for i:= 16 to 20-1 do
    begin
      a[i] := a[i + 1];
      write(a[i]:4)
    end;
  readln;
end.