Одномерный массив. Меняем местами

[Incomprensible]

Задачка звучит так: в одномерном массиве поменять местами минимальное и максимальное значение. Array.
Я нашла в интернете исходник, но его забраковали. Сказали написать максимально просто и последовательно... Я так понимаю без процедур.

[Incomprensible]

Если нужно выложу исходник...

[capta1n]

program ar;
const
 n = 10;
var
 a : array [1..n] of integer;
 buf : integer;
 i,k,j : byte;
begin
  for i:=1 to n do a[i]:=i;
  for i:=1 to n do write (a[i],'|');
  writeln;
  k:=1;
  j:=1;
  for i:=1 to n do
  begin
    if a[i]>a[j] then j:=i;
    if a[i]<a[k] then k:=i
  end;
  buf:=a[k];
  a[k]:=a[j];
  a[j]:=buf;
  for i:=1 to n do write (a[i],'|');
  readln
end.

[Incomprensible]

Спасибо огромное