Написать процедуру, которая в последовательности чисел a1…an заменяет все члены, следующие за наибольшим на значение 0 — Pascal(Паскаль)

procedure changer(a :mas; n:integer);
var
i,max :integer;
max:=1;
for i:=1 to n do
if a[i] > a[max] then
max:=i;
inc(max);
for i:=max to n do
a[i]:=0;
end;