В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

Ошибка.

где?

7-я строка

Там k:=1, когда надо k:=0

var   a: array[1..15] of integer;   i, sum, count: integer;begin   for i:=1 to 15 do      readln(a[i]);   sum := 0; count := 0;   for i:=1 to 15 do      if a[i] > 0 then      begin         sum := sum + a[i];         inc(count);      end;   writeln(sum, ' ', count);end.