N i K
8 3 200*3=600
16 4 110*4=440
64 6 120*6=720
128 7 100*7=700
256 8 80*8=640
while A[x] while A[y]>m do y:=y-1; - эта строка - у тебя тут идет пока какой-то элемент выполнять цикл пока. И видимо на нем цикл крутится и не заканчивается вот тебе и ошибка