[SerginhoLD]

вообще я ток заметил, у тебя циклы while бесконечные, тебе твои i и j надо увеличивать, поэтому перед закрытем цикла увеличивай переменную на единицу , т.е. i:=i+1; или j:=j+1;