Дан одномерный массив,в нем нужно максимальный элемент заменить и вывести на экран полученный массив — Pascal(Паскаль)

program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,max :integer;
begin
randomize;
max:=1;
for i:=1 to n do
begin
mas[i]:=random(20)-5;
write(mas[i],' ');
if mas[i] > mas[max] then
max:=i;
end;
writeln;
writeln('Максимальный элемент ',mas[max]);
mas[max]:=-100;
for i:=1 to n do write(mas[i],' ');;
end.