задача на сортировку массива [Паскаль]

[Larkin]

Объявить массив из 13 целых чисел. Ввести значение элементов с клавиатуры. Отсортировать часть массива, расположенную между минимальным и максимальным элементами (максимальный элемент может располагаться в массиве как раньше минимального, так и позже его). Вывести на экран и в файл исходный и измененный массивы.


вот, что у меня пока есть...

Program udz;
uses crt;
cost n=13;
var i :byte;
max,min,tmp : integer;
Begin
clrscr;
for i =1 to 13 do
begin
write ('bbedute x[',i,']=');
read (x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i]< min then
min:=x[i];
k:=i;
end;
max:=x[1];
for i:=2 to n do
if x[i]> max then
max:=x[i];
g:=i;

[Mad_Cat]

function min(a,b:integer):integer;
begin
if a<b then min:=a
else min:=b;
end;

function max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;

(*сортировка*)
for i:=min(g,k) to max(g,k)-1 do
          for j:=i+1 to max(g,k) do
              if (x[j]>x[i]) then
                begin
                   tmp:=x[i];
                   x[i]:=x[j];
                   x[j]:=tmp;
              end;