[Страдалецъ]

Если у вас уже известны значения минимального и максимального элементов то так:
a[d] := max;
a[k] := max;
если известны только их индексы, то так:
Tmp := a[d];
a[d] := a[k];
a[k] := Tmp;