Всего символов: 290*39*67=757770 символов.
Если это просто символы типа char кодировки ASCII, то так как char имеет размер 1 байт, то книга занимает 757770 байт, или 757770/8=6062160 бит
while A[x] while A[y]>m do y:=y-1; - эта строка - у тебя тут идет пока какой-то элемент выполнять цикл пока. И видимо на нем цикл крутится и не заканчивается вот тебе и ошибка
отмены ввода числа, его части и общего сброса