Вам мешало переполнение s. Для него хорошо подойдёт тип longword - и беззнаковый, и целый, и 32-битный. Для 1000 элементов s=500499 - в word (16-бит) никак не влезает, в longint влезет.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.