Ракировка значений, Замена элемента массива. Опции

[midss]

Дано 10 чисел введенных с клавиатуры, найти мин. элемент и заменить его на 0 в массиве.
Делал так:

program bat12;
uses crt;
var A: array [1..10] of integer;
x,y,z,min,n,i: integer;
begin
for i:=1 to 10 do begin
write('A[',i,']=');
read(A[i]);
end;
writeln('МАССИВ:');
for i:=1 to 10 do begin
writeln(a[i]:5);
end;
min:=a[1];
for i:=2 to n do
if A[i]<min then min:=A[i];
   writeln('МИНИМАЛЬНЫЙ ЭЛЕМЕНТ=',min);
{write('Заменяем мин. элемент на 0');}
   if A[i]<min then begin
   min:=A[i];
   x:=i;
   end;
   A[x]:=0;
   write('Измененный массив=');
   for i:=1 to 10 do begin
   writeln(a[i]);
   end;
end.

Но не могу заменить min на 0... помогите пожалуйста!
Единственное помню как менять просто элементы, здесь не могу никак додуматься!

ПРИМЕР МАССИВ:
5 4 6 (6 меняем на 5, а 5 на 6)
n:=A[3];
A[3]:=A[1];
A[1]:=n;