Перестановка массива Опции

[Amele]

Плз, помогите решить задачу. Нужно оч срочно. Я над ней голову уже 2 недели ломаю, никак.
Переставить в обратном порядке элементы массива, расположенные между минимальным и максимальным элементами.

[Amele]

Вот я её попыталась решить:

Код

program rtt;
var a:array  [1..10] of integer;
i,max,min,k,b,k1,c,v,d:integer;f:char;
begin
for i:= 1 to 10 do begin
readln(a[i]);
end;
max:=a[1]; k:=1;  c:=0; v:=0;
min:=a[1]; k1:=1;
for i:= 1 to 10 do begin
if a[i]<min then begin min:=a[i]; k:=i end;
if a[i]>max then begin max:=a[i]; k1:=i end;
end;
if (k1 mod 2=0) and (k<k1) then c:=k1 div 2
if (k1 mod 2<>0) and (k<k1) then c:=(k1-1) div 2;
If (k mod 2=0) and (k1<k) then v:=k div 2
If (k mod 2<>0) and (k1<k) then  v:=(k-1) div 2;
for i:= k to c do begin
b:=a[k+i]; a[k+i]:=a[k1-i]; a[k1-i]:=b;
end;
for i:= k1 to v do begin
d:=a[k1+i]; a[k1+i]:=a[k-i]; a[k-i]:=d;
end;
for i:= 1 to 10 do begin
write(a[i]:3);
end;
readln(f);
end.

Но почему-то не получается. В чем ошибки-то?