Задача Паскаль. Вывести элементы массива y(15) с клавиатуры. Найти минимум и заменить его нулем.

min:=30000; nmin:=1;
for i:=1 to 15 do begin
write('y[',i,']= ');
readln(y[ i ];
if y [ i ] < min then begin
min:=y [ i ]; nmin:=i end;
end;
y[nmin]:=0;
начало и конец сам допиши