Pascal/Turbo Pascal - Cómo leer caracteres de pantalla

Hola. Mi problema es que quiero leer caracteres que estén en la pantalla. Por ejemplo, qué hay en la posición (1,1), etc...

Desde ya muchas gracias.

Por lo general no suelo escribir códigos completos pero como la solución no parece tan obvia aquí está:

ch=record
car,att:byte;
end;
linmemvideo=array[1..80] of ch;
pantmemvideo=array[1..25] of linmemvideo;

var
pantalla:pantmemvideo absolute $b800:00;
A: char;
begin
A:=chr(Pantalla[1][1].car);
end.

Lo que hice fué crear una estructura igual a la de la memoria de video en modo texto de 80 x 25 y fuerzo que se cree en la posición de esa memoria ($b800:00), sin más la matriz así creada es la pantalla no tenga mas que asignar la posición que deseo a una variable char y listo.