Дан одномерный массив. Заменить минимальный элемент нулём

Var

a:array[1 ... 10000] of integer;

i, n, min:integer;

begin

writeln ('Кол-во элементов массива') ;

readln (n) ;

for i:=1 to n do

read (a[i]) ;

min:=1;

for i:=2 to n do

if a[min]>a[i] then

min:=i;

a[min]:=0;

for i:=1 to n do

write (a[i],' ') ;

end.