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

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.

//PacalABC.NET 3.4.2

//Используется формула аналогичная формуле Бине для чисел

//Фибоначчи

const

 index = power(33, 0.5);

 a1 = power((19 + 3 * index), 1 / 3);

 a2 = power((19 - 3 * index), 1 / 3);

 b = power((586 + 102 * index), 1 / 3);

var

 n: smallint;

function tribonacthi(n: smallint): biginteger;

begin

 if (n = 1) or (n = 2) then result := 0

 else

   result := RoundBigInteger(3 * b * ((power((1 / 3 * (a1 + a2 + 1)), n - 1)) / (power(b, 2) - 2 * b + 4)));

end;

begin

 try

   n := readinteger('Введите количество элементов для вывода:');

 except

   on system.formatexception do

     writeln('Неверный формат ввода');

 end;

 for var i := 1 to n do write(tribonacthi(i), ' ');

end.

Например, в маске *r*f* пять символов, ей удовлетворяют нужные имена файлов (mister_fox, from_foxford), но не удовлетворяют ненужные (brave_oxygen – нет f,  magic_fox – нет r).

Масок из меньшего количества символов, удовлетворяющих условию нет:

Начальные символы mister_fox и from_foxford разные, так что маски должны начинаться с звездочекАналогично, и заканчиваться они должны на звездочку. Таким образом, два символа маски известныЕсли в маске всего 3 символа, то неизвестный символ – символ, который должен быть в нужных словах, но которого не должно быть в ненужных. В обоих нужных словах есть символы m, r, _, f, o, x, но каждый из этих символов есть хотя бы в одном ненужномЕсли в маске 4 символа, то неизвестная пара символов – символы, стоящие подряд, которые есть в нужных словах и которых нет в ненужных. В нужных словах совпадают только пары символов, входящие в _fox, но этот же фрагмент входит и в magic_fox