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

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 zero<>kmax then     for i:=zero+1 to k do sum:=sum+T[i];  writeln ('Summa: ',sum);  writeln ('Kol-vo: ',count);end.