В массиве наименьший элемент поместить на первое место, наименьший из оставшихся на последнее

uses
    crt;
const
    n=11;
type
    int=longint;
    Tarr=array [1..n] of int;
var
    input:Tarr;
    startPos,finishPos,minPos,insertPlace:integer;
        i,j,counter,buf:integer;
begin
    clrscr;
    startPos:=1;
    сounter:=1;
    finishPos:=n;
    writeln('Enter Array (',n,'integer elements)');
    for i:=1 to n do
        readln(input[i]);
    writeln('inputArr');
    for i:=1 to n do
        write(input[i],' ');
    writeln;
    while startPos<>FinishPos do begin
        minPos:=startPos;
        for i:=startPos to finishPos do
            if input[minPos]>input[i] then
                        minPos:=i;
        buf:=input[minPos];
        if odd(counter) then begin
            input[minPos]:=input[startPos];
                input[startPos]:=buf;
                inc(startPos);
        end
        else begin
            input[minPos]:=input[finishPos];
                input[finishPos]:=buf;
                dec(finishPos);
        end;
        inc(counter);
    end;
    writeln('ResultArr');
    for i:=1 to n do
        write(input[i],' ');
    readln;
end.