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

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   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 (zero0) 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.