В массиве найти второй по порядку отрицательный и предпоследний положительный элементы и поменять их местами

Var V:array[1..100] of integer;
    n,vmin,vmax,i,j,p,k,t,buf:integer;
Begin
    write('Введите n: ');readln(n);
    write('Введите vmin: ');readln(vmin);
    write('Введите vmax: ');readln(vmax);
    k:=0;t:=0;
    writeln('Исходный');
    For i:=1 to n do
    Begin
      V[i]:=random(31)-15;
      write(V[i]:4);
      if (V[i]<0)and(t=0)and(k=1) then t:=i;//второй отрицательный
      if (V[i]<0) then k:=1;
    End;
    j:=0;p:=0;
    For i:=n downto 1 do
    Begin
      if (V[i]>0)and(p=0)and(j=1) then p:=i;//предпоследний положительный
      if (V[i]>0) then j:=1;
    End;
    writeln;
    if (t>0)and(p>0) then
    Begin
      writeln('Второй отрицательный = ',V[t],' он находится V[',t,']');
      writeln('Предпоследний положительный = ',V[p],' он находится V[',p,']');
      buf:=V[t];
      V[t]:=V[p];
      V[p]:=buf;
      writeln('Преобразованный');
      For i:=1 to n do
       write(V[i]:4);
    End
    else writeln('Нету второго отрицательного или предпоследнего положительного');
    readln;
End.

Var
  V:array[1..100] of integer;
  n,votr,vpol,i,k,buf:integer;  //убрал непонятные переменные
Begin
  write('Введите n: ');readln(n);  
  k:=0; vpol:=0; votr:=0;    // количество найденных(k) и индексы найденных положит(vpol) и отриц(vort) равны 0
  writeln('Исходный');
  For i:=1 to n do Begin
    V[i]:=random(31)-15;
    write(V[i]:4);  // отображаем элементы массива
    if (V[i]<0) then inc(k); // если нашелся отрицательный - увеличиваем счетчик отрицательных
    if (V[i]<0)and(k=2) then votr:=i; // если отрицательный и он уже второй, сохраняем его в индексе
  End;
  k:=0;
  For i:=n downto 1 do Begin  // так же и для положительных , но считаем от последнего к первому
    if (V[i]>0) then inc(k);
    if (V[i]>0)and(k=2) then vpol:=i;  // нашелся 2 сзади положительный - сохраняем его индекс
  End;
  writeln;
  if (vpol>0)and(votr>0) then Begin // если индесы не нулевые, можно менять найденные через буффер (buf)
    writeln('Второй отрицательный = ',V[votr],' он находится на ',votr,' месте');
    writeln('Предпоследний положительный = ',V[vpol],' он находится на ',vpol,' месте');
    buf:=V[votr]; V[votr]:=V[vpol]; V[vpol]:=buf;
    writeln('Преобразованный');
    For i:=1 to n do write(V[i]:4);
  End else
    writeln('Нету второго отрицательного или предпоследнего положительного');
  readln;
End.