Проблемы с перестановкой в одномерном массиве!

const
  n = 10; {количество элементов массива}
var
 ms: array [1..n] of integer; {собссна массив}
 i,min,buff: integer; {переменная-индекс, минимальное значение, буфер для первого элемента}
begin
  randomize; {инициализируем генератор случайных чисел}
  ms[1] := random(10); {генерируем первый элемент из промежутка [0; 10)}
  write(ms[1]:5); {выводим его на экран}
  min := ms[1]; buff := ms[1]; {предположим, что он минимальный и запомним его значение}
  for i:=2 to n do {заполняем остальные элементы}
   begin
     ms := random(10);
     write(ms:5);
     if ms < min then min := ms; {если элемент массива меньше минимального значения, то он есть самый минимальный}
   end;
  writeln;  writeln; {пропустим на экране пару строк для удобства}
  ms[1] := min; {произведём замену первого элемента}
  write(ms[1]:5);
  for i:=2 to n do {и всех остальных}
   begin
    if ms = min then
      ms := buff;
    write(ms:5);
   end;
  readln;
end.