Составить программу (в Pascal) позволяющую найти минимальный элемент  массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.

read(a[i]);

Люди, которые знают паскаль, не будут выкладывать сюда подобные элементарные задачи, а значит и решение было бы желательно писать полностью. К тому же Ваша программа без ввода массива даже работать не будет.

И константу N Вы не описали.

Плюс, на собственном опыте знаю, что нельзя минимальное значение (в Вашем случае k) задавать определенным числом. Если все элементы массива будут больше этого k, то и минимальный по такому коду найден не будет в данном массиве. Это не упрек, а просто совет. Примите к сведению, пожалуйста, пригодится.

И впредь подобные ситуации лучше разрешать в личных сообщениях. Лишние уведомления другим пользователям ни к чему.

А Вас просили решение. Мы не знаем уровня знаний этого языка пользователем. Если, допустим, она паскаль вообще не знает, то и дополнить она Ваш код никак не сможет, даже если очень захочет. И не только она. Таких пользователей здесь выше крыши. Некоторым приходится даже комментарий к каждой строчке расписывать.

ты есть в ВК?