Дан одномерный массив P[n] Найти максимальный элемент и заменить его нулем

Var ar:array of integer;

n, max, maxi, i:integer;

begin;

randomize;

readln (n) ;

setlength (ar, n+1) ;

writeln ('First array:') ;

for i:=1 to n do

begin;

ar[i]:=random (100) ;

write (ar[i]:4) ;

if ar[i]>max then

begin;

max:=ar[i];

maxi:=i;

end;

end;

ar[maxi]:=0;

writeln;

writeln ('Final array:') ;

for i:=1 to n do

write (ar[i]:4) ;

end.