Перестановка в 1-ом массиве

[bles]

Привет всем ! помогите пожалуйста сделать одну задачку:

Дан массив X[n] заполненный 0,1 и 2 переставить элементы массива так, что бы сначала были 1, потом 2 и в конце 0.

Заранее спасибо !

[Grag]

buff:=X[1];
for i:=2 to n do
  X[i-1]:=X[i];
X[n]:=buff;

[DoDge_VipeR]

const n = 15;
var a:array[1..n] of Byte;
 i:integer;
 k:Integer;
 z,p:byte;
 begin
  Randomize;
 for i := 1 to n  do begin
   a[i]:=Random(3);
  write(a[i]:3);
  end;
k:=1;
z:=1;
 for p := 1 to 2  do
 begin
 for I := z to n  do
   if a[i]=p then
   begin
     a[i]:=a[k];
     a[k]:=p;
     k:=k+1;
   end;
 z:=k;
 end;
  Writeln;
  for i := 1 to n  do begin
  write(a[i]:3);
  end;
  readln;
end.