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

Программа генерирует масив и присваевает значение 0 самому большому значению в массиве. Program d1varc: array[1… 20] of integer; i,z: integer; beginRandomize; for i: =1 to 20 dobeginc[i]: =random (50); end; z: =c[1]; for i: =1 to 20 dobeginif c[i]>z then z: =c[i]; end; c[z]: =0; end.