Задача на одномерный массив

[AliVe]

Аллоха! В общем есть задача: ввести одномерный массив C(N)(N<=50). Переставить в нем элементы так, чтобы начале находился минимальный элемент, в конце максимальный, а все остальные элементы сохранили прежний порядок.
Т.е. был массив 4 5 2 89 3 7 9
а получаецо 2 4 5 3 7 9 89;
И никак не могу сделать цикл на перестановку этих элементов, вот собствено код, подскажите как этот цикл сделать?

Program DEAD_AFFTAR;
uses crt;
var i,N,x,y:integer;
    max, min:real;
    C: array [1..50] of real;
    p,q:real;
begin
clrscr;
  write ('N='); readln(n);
    for i:=1 to n do
     begin
      write ('c[',i,']='); readln (c[i]);
     end;
    for i:=1 to n do
      write (c[i]:8:3 );
      writeln;
  max:=C[1];
  x:=1;
    for i:=1 to n do
      if c[i]>max then
     begin
      max:=c[i];
      x:=i;
      end;
  min:=c[i];
  y:=1;
    for i:=1 to n do
    if c[i]<min then
     begin
      min:=c[i];
      y:=i;
     end;
 for i:=1 to n do
  begin
   p:=c[y];
   c[y]:=c[y-1];
   c[y-1]:=p;
  end;
 for i:=1 to n do
  begin
   q:=c[x];
   c[x]:=c[x+1];
   c[x+1]:=q;
  end;
 for i:=1 to n do
    write (c[i]:8:3);
readkey;
end.

[Abbatik]

Program DEAD_AFFTAR;
uses crt;
var t,i,N,x,y:integer;
    max, min:real;
    C: array [1..50] of integer;
    p,q:real;

begin
clrscr;
  write ('N='); readln(n);
    for i:=1 to n do
     begin
      write ('c[',i,']='); readln (c[i]);
     end;
    for i:=1 to n do
      write (c[i]:8 );
      writeln;
  max:=c[1];
  x:=1;

    for i:=1 to n do begin
      if c[i]>max then
     begin
      max:=c[i];
      x:=i;
      end;
 end;
 for i:=x to n-1 do
 begin
 t:=c[i];
 c[i]:=c[i+1];
 c[i+1]:=t;
 end;
  min:=c[1];
  y:=1;
    for i:=1 to n do begin
     if c[i]<min then
     begin
      min:=c[i];
      y:=i;
     end;
 end;
 for i:=y downto 2 do begin
 t:=c[i];
 c[i]:=c[i-1];
 c[i-1]:=t;
 end;

for i:=1 to n do
    write (c[i]:8);
readkey;
end.