program Forcikluseltolas2;

Uses Crt;
var i:integer; //léptetéshez kell a ciklusokban
    vector : array [1..10] of integer; //a tömb maga, amiben dolgozunk
    tmp : integer; //segédváltozó, amiben tároljuk az első elemet
    tmp2 : integer; // második segéd...
begin

  for i:= 1 to 10 do //első ciklus, értékeket adunk a tömb elemeinek
    begin;
        vector[i] := i;
        Clrscr;
        write(vector[i]);
    end;

  tmp:=vector[1]; //az első elemet eltároljuk az ideiglenes tárolóban
  tmp2:=vector[2];
  for i:=1 to 10 do//második ciklus, itt eltoljuk a tömb elemeit egyel
    begin;
        if i<9 then
            vector[i]:=vector[i+2];
    end;
    vector[9]:=tmp;
    Vector[10]:=tmp2;
  for i:=1 to 10 do //Harmadik ciklus, kiírjuk az eltolt tömb elemeit
    begin;
        Writeln;
        Writeln;
        write(vector[i]);
    end;
Readln;
end.