Имеется массив целых чисел размером n. заполнить его случайными числами в диапазоне от n1 до n2 (n1 и n2 вводятся с клавиатуры). вывести его на экран. на место максимального элемента массива записать число 9999 получившийся массив вывести на экран. если максимальных элементов несколько, то все их заменить на 9999. решить ! нужно решить в pascal abc!

program noname;
uses crt;
var
a:array[1..10000] of integer;
i,n,max,n1,n2:integer;
begin
clrscr;
writeln('введи размерность массива');
readln(n);
write('n1='); readln(n1);
write('n2='); readln(n2);
for i:=1 to n do begin
randomize;
a[i]:=random(n2-n1+1)+n1;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do begin
if a[i]=max then a[i]:=9999;
write(a[i],' ');
end;
readkey;
end.