Подчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
Вместо суммы или произведения выводится непонятно что

Ну, так наверное

If a[ i ] > 0
then k := k + a[ i ]
else m := m * a[ i ]

надо делать в цикле, как ты думаешь?

Я также сделал смотри прикреплённый файл

Нет, в том файле, что ты привел, конструкция if then else не в цикле.
Может ты не там поставил end...
Поставив его после if then else, а присвоения переменных k,m нулю и единици - перед циклом, и все должно работать...