Составьте программу удаления максимального элемента массива с(20)

Программа генерирует масив и присваевает значение 0 самому большому значению в массиве.

Program d1
var
c: array[1..20] of integer;
i,z:integer;
begin
Randomize;

for i:=1 to 20 do
begin
c[i]:=random(50);
end;

z:=c[1];

for i:=1 to 20 do
begin
if c[i]>z then z:=c[i];
end;

c[z]:=0;
end.