В заданном одномерном массиве удалите каждый третий положительный элемент — Pascal(Паскаль)

const n=10;
var i,j,k,len:integer;
 a:array [1..n] of integer;
begin
 k:=0;
 a[1]:=1; a[2]:=2; a[3]:=-3; a[4]:=4; a[5]:=-5;
 a[6]:=6; a[7]:=7; a[8]:=-8; a[9]:=9; a[10]:=10;
 len:=n;
 i:=1;
 while i<=len do begin
  if a[i]>0 then inc(k);
  if k=3 then begin
   for j:=i to len-1 do a[j]:=a[j+1];
   dec(len);
   k:=0;
  end;
  inc(i);
 end;
 writeln ('Измененный массив');
 for i:=1 to len do write (a[i],' ');
 readln;
end.