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

vara:array[1..10000] of integer;i,n,min:integer;beginwriteln('Кол-во элементов массива');readln(n);for i:=1 to n doread (a[i]);min:=1;for i:=2 to n doif a[min]>a[i] thenmin:=i;a[min]:=0;for i:=1 to n dowrite(a[i],' ');end.