ох давно это было
в паскале ты можешь достучаться до буфера экрана через массив Mem[$b800:Offset], смещение вычисляешь как offset=80*y+x (размер экрана в стандартном текстовом режиме 80х25 символов)