В массива заменить максимальный(ые) элементы на 0 — Pascal(Паскаль)

const N=10;
var a:array[0..N-1]of Integer;
    i,m:Integer;
begin
    randomize;
    m := 0;
    for i:=0 to N-1 do begin
        a[i] := Random(10);
        if (i=0) or (a[i]>m) then m := a[i];
    end;
    for i:=1 to N-1 do begin
        if a[i]=m then a[i] := 0;
    end;
end.