Информатика. PascalABC.

Прошу помочь написать программы:

1. Дана последовательность чисел С1, С2, ..., С18. Найти произведение элементов этой последовательности до первого нулевого и сумму элементов, расположенных после него.

2. Из массива a1, a2, ..., a30 исключить максимальный элемент.

Желательно с пояснениями, заранее спасибо!

var C:Array[1..18] of integer; i,p,s,k:integer;beginp:=1;for i:=1 to 18 do beginC[i]:= random(10)-5;write(C[i]:4);if C[i] = 0 then k:= 1;if k = 0 then p:= p * C[i]else s:= s + C[i];end;writeln;write('Произведение = ',p , ' Сумма = ',s);end.var C:Array[1..30] of integer; i,max,q:integer;beginfor i:=1 to 30 do beginC[i]:= random(100)-50;write(C[i]:4);if C[i] > max then begin max:= C[i];q:=i;end;end;writeln;C[q]:= 0;for i:=1 to 30 dowrite(C[i]:4);end.