Взаданному масиві замінити найбільший елемент нулем

Var
  a: array[1..50] of integer;
  max, maxi: integer;
begin
  Randomize;
  for var i := 1 to 50 do a[i] := Random(1, 1000);
  writeln(a);
  max := a[1];
  maxi := 1;
  for var i := 1 to 50 do
     if a[i] > max then begin
      max := a[i];
      maxi := i;
    end;
  a[maxi] := 0;
  writeln('Максимальный был на ', maxi, ' месте и равнялся ', max);
  writeln(a);
end.