Удаление элементов массива и сдвиг

[Alex11223]

Есть массив из N натуральных чисел. Нужно удалять первые 2 элемента и соответственно сдвигать влево на 2. В гугле и на этом форуме читал, но что-то не получается.

[dosha]

фантазию над проявлять!
актуально когда n>2

var
  a:array of Integer;
  n,i:Integer;
begin
  Readln(n);//считываем колво элементов
  SetLength(a,n); //устанавливаем длину
  //читаем элементы
  for i:=0 to n-1 do
   Readln(a[i]);
  Writeln;
  for i:=0 to n-1 do
   Writeln(a[i]);
   Writeln('------------');
  for i:=0 to n-3 do // выполняем сдвиг в два прохода
    begin
     a[i]:=a[i+1];
     a[i+1]:=a[i+2];
    end;
  SetLength(a,n-2);
  for i:=0 to n-3 do
   Writeln(a[i]);
   Writeln('------------');
  Readln;
end.