Дан одномерный массив 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]gt;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.