Заполнить массив случайными целыми числами. Заменить элементы массива, равные минимальному, числом 99. Очень надо. Пожалуйста!!!

const n=10;var a:array[1..n] of integer;min,i:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin a[i]:=random(21); write(a[i],' '); end;writeln;min:=a[1];for i:=2 to n do if a[i]<min then min:=a[i];writeln('min = ',min);for i:=1 to n do if a[i]=min then a[i]:=99;writeln('Полученный массив:');for i:=1 to n do write(a[i],' ');writeln;end.Пример:Исходный массив:5 13 9 13 19 3 20 5 9 3 min = 3Полученный массив:5 13 9 13 19 99 20 5 9 99