Уважаемый DDS, я позволил себе внести некоторую правку в Ваши программы, уж извините. Во-первых, если Вы используете генератор случайных чисел, то не забывайте в начале программы его инициализировать, т.е. написать команду Randomize. Во-вторых, ну что у Вас за пристрастие к CRT-шным командам типа ReadKey, при том, что модуль CRT вы не присоединяете? Останов программы в конце проще всего делается командой Readln, правда сработает это только при условии, что ввод с клавиатуры в теле программы осуществляется ТОЛЬКО командами Readln(x), но не Read(x). Универсальный останов лучше всего сделать так:
Uses CRT;
...
Repeat Until KeyPressed;
ReadKey;
Последняя команда, впрочем, нужна только если останов не оконечный.
Ну и в-третьих, сделана небольшая косметика: поправлены явные описки.
Надеюсь, без обид?