Помогите решить задачу в паскале

[P@niSheR]

нужно исправит этот отрывок проги так чтобы каждый нечетный раз прохода по циклу нйденый максимум записывался бы на в начало масива а каждый четный раз прохода по циклу он бы записывался в конец масива

procedure sort(var d:mas;k:integer);
begin
for k1:=1 to k-1 do
begin
max:=-maxint;
for i:=k1 to k do
if d[i]>max then begin
max:=d[i];
nmax:=i;
end;
d[nmax]:=d[k1];
d[k1]:=max;
end;
end;

[puporev]

Вот нарисовал такую штуку, разбирайся.
uses crt;
var a:array[1..100] of integer;
n,i,j,max,jmax,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
max:=-maxint-1;jmax:=1;
if odd(i) then //если нечетное i
begin
for j:=(i div 2)+1 to n-(i div 2) do
if a[j]>max then
begin
max:=a[j];
jmax:=j;
end;
for k:=jmax downto (i div 2)+2 do
a[k]:=a[k-1];
a[(i div 2)+1]:=max;//каждый нечетный максимальный ставим 1,2,3...
end;
max:=-maxint-1;jmax:=1;
if not odd(i) then //если четное i
begin
for j:=(i div 2)+1 to n-((i-1) div 2) do
if a[j]>max then
begin
max:=a[j];
jmax:=j;
end;
for k:=jmax to n-((i-1) div 2)-1 do
a[k]:=a[k+1];
a[n-((i-1) div 2)]:=max;//каждый четный максимум ставим n,n-1,n-2....
end;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.
P.S. Тэги Code не ставятся.

[P@niSheR]

спасибо ))))