Переменная k не инициализируется после запуска программы. Это означает, что есть ненулевая вероятность того, что в ней сразу после запуска программы будет не 0, а неизвестно что.
Так что нужно добавить строчку k:=1 и убрать добавление 1 после подсчета.