Помогите составить программу ... вот она. Даны К и массив Т (к). Найти сумму и количество элементов в массиве Т после первого нулевого элемента.

Const kmax = 20;

var T:array [1 ... kmax] of integer;

i, k, zero, sum, count:integer;

begin

count:=0;

sum:=0;

repeat

write ('K (K<20) = ') ;

readln (k) ;

until k in [1 ... kmax];

randomize;

for i:=1 to k do

begin

T[i]:=random (14) - 5;

write (T[i]:3) ;

end;

writeln;

zero:=1;

while (zero<=k) and (T[zero]0) do inc (zero) ;

count:=k-zero;

if zerokmax then

for i:=zero+1 to k do sum:=sum+T[i];

writeln ('Summa: ', sum) ;

writeln ('Kol-vo: ', count) ;

end.