Графика в паскале!, Помогите с кодом!!! Опции

[MagicPRO]

Помогите кто-то с заданием!!!!!Нужно сортировать заданый массив фигур(треугольник,квадрат,круг) методом перестановки!Помогите пожалуста!!!

[klem4]

Что-то на подобии этого ?

uses crt;

const
  n = 6;

type

  TFigure = (Triangle, Rectangle, Circle); (* 0, 1, 2*)

var

  f: array [1..n] of TFigure = (

    Triangle, Circle, Circle, Rectangle, Circle, Triangle

  );

var

  i, j: Integer;
  temp: TFigure;

begin

  clrscr;

  for i := 1 to n - 1 do
   for j := i + 1 to n do
    if f[i] >= f[j] then begin
      temp := f[i];
      f[i] := f[j];
      f[j] := temp;
    end;

  for i := 1 to n do
   writeln(ord(f[i])); 

  readln;

end.