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

Const n=10;
var a:array[1..n] of integer;
min,i:integer;
begin
Randomize;
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]lt;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