Дан массив А(6). Определите количество положительных элементов. Паскаль.

var a:array[1..6] of integer;k,i:integer;begink:=0;for i:=1 to 6 dobeginwriteln('Введите элемент массива');readln(a[i]);if a[i]>0 then k:=k+1;end;writeln('Количество положительных элементов : ',k);end.