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

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.

    writeln('Введите элементы массива:');
    For i:=1 to n do
    Begin
      write('V[', i, '] = ');
      readln(V[i]);