Поменять местами минимальный и максимальный элементы массива

const
n=10;
var
thearr:array[1..n]of integer;
i:integer;
max,min:integer;
posmin,posmax:integer;
buf:integer;
begin
    for i:=1 to n do
    begin
        thearr[i]:=random(n);
        write(thearr[i],' ');
    end;
    writeln;
    min:=thearr[1];
    posmin:=1;
    max:=thearr[1];
    posmax:=1;
    for i:=1 to n do
    begin
        if(min > thearr[i])then
        begin
            min:=thearr[i];
            posmin:=i;
        end;
        if(max < thearr[i])then
        begin
            max:=thearr[i];
            posmax:=i;
        end;
    end;
    buf := thearr[posmin];
    thearr[posmin]:= thearr[posmax];
    thearr[posmax]:=buf;
    writeln('поменяли местами:');
    for i:=1 to n do
    begin
        write(thearr[i],' ');
    end;
end.