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

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.