В массиве { x1, x2 ,…, xn} заменить максимальный элемент нулем — Pascal(Паскаль)

program pervaja;
    const n = 20;
    var A:array[1..n] of integer;
        i, sum, max, maxNr:integer;
begin
  Randomize;
  max:=-32567;
  For i:= 1 to n do
  Begin
    A[i]:=random(20)-10;
    Write(A[i]:3, ' ');
    if A[i] > max then
    Begin
        max:=A[i];
        maxNr:=i;
    End;
  End;
  A[maxNr]:=0;
  For i:=1 to n do Write(A[i]:3, ' ');
  Readln;
end.