Посчитать в массиве из 10 чисел количество положительных элементов. pascal

program n; var       m: array[1..10] of integer;      i,k: integer; begin writeln('Введите массив'); k:=0; for i:=1 to 10 do begin     readln(m[i]);    if  m[i]>0 then k:=k+1;  end; writeln(k); end. Если я помогла,то отметь мой ответ лучшим,пожалуйста