В векторе заменить все его элементы стоящие после max-го на 0 — Pascal(Паскаль)

uses crt;
var m:array[1..100]of integer;
i,n,max:integer;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 max := 1;
 for i := 1 to n do if m[i] > m[max] then max := i;
 for i:= max+1 to n do m[i] := 0;
 writeln('Преобразованный массив');
 for i:=1 to N do write(m[i],' ');
 readln;
end.