Помогите составить программку...вот она.  Даны К и массив Т(к). Отыскать сумму и

Эту программку надобно написать в Паскале

Const kmax = 20;
var T:array [1..kmax] of integer;
     i,k,zero,sum,count:integer;
begin
  count:=0;
  sum:=0;
  repeat
   write ('K(Klt;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 (zerolt;=k) and (T[zero]lt;gt;0) do inc(zero);
  count:=k-zero;
  if zerolt;gt;kmax then 
    for i:=zero+1 to k do sum:=sum+T[i];
  writeln ('Summa: ',sum);
  writeln ('Kol-vo: ',count);
end.