Одномерный массив., Немного подкорректировать программу Опции

[**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.

[volvo]

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;

, и больше никогда так не делай. Нельзя менять переменную I внутри цикла. Это делает сам компилятор. Если тебе обязательно надо контролировать i самостоятельно - есть другие циклы: while и repeat...