Заполнить массив случайными числами в интервале -10;10 найти min элемент массива и заменить его на 0

var a:array [1..10] of integer; i,k:integer; begin randomize; writeln('Массив:'); for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); end; writeln; k:=a[1]; for i:=1 to 10 do if a[i]