Одномерный массив.Паскаль

[**star**]

[В массивее А = ( а1, а2, . . . аn ) все положительные элементы ,
начиная со второго положительного, отправить в хвост массива .
( Новый массив не создавать ).

Есть программа,но почему-то не всегда работает правильно...

Program Lab;
Uses crt;

type arr=array[1..15] of integer;
var a:arr;
    p,k,i,j,n:integer;

begin
clrscr;
writeln;
writeln('Dan odnomernij massiv celih chisel');
writeln('W massiwe wse pologitelnie element,nachinaja so wtorogo, otprawit w hwost massiwa');
writeln;
{$R+}
n:=15;
randomize;
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
     a[i]:=-20+random(41);
     write(a[i]:4);
end;
writeln;
k:=0;
p:=0;
for i:=1 to n do
begin
     if a[i]>=0 then
     begin
          k:=k+1;
          if k>1 then
          begin
               p:=a[i];
               for j:=i to n do
                   if j<>n then
                      a[j]:=a[j+1]
                   else
                      a[j]:=p;
               i:=i-1;
          end;
     end;
end;
Writeln('Resultat obrabotki');
for i:=1 to n do
    write(a[i]:4);
readln;
{$R-}
end.

[**star**]

Неужели никто не знает...