Pascal/Turbo Pascal - como hacer un cuadro / en mas cuadros que cambie d

writeln('&#9562',' ','&#9552',' ',&#9565');
Es texto no numérico,

Primero si quieres que un proceso se realice dentro de un cuadro o ventana tienes que
crear las condiciones con window(1,1,20,20) tendrías un cuadro de 1x20x20 donde
se ejecutara el proceso pero antes de abandonar tienes que ponerlo a su tamaño real
window(1,1,80,25) lógicamente estamos en modo texto 80x25.
Referente a los caracteres especiales los podrás ver con este programa ejecútalo en pascal.

program teclado;
uses
crt, dos;
var
tecla : char;
x, y, nume : integer;
begin
clrscr;
sound(100);
delay(129);
nosound;
x := 1;
y := 1;
nume := 9;
repeat
textcolor(14);
gotoxy(x,y);write(nume);
textcolor(15);
gotoxy(x + 3,y);write(tecla);
inc(nume);
tecla := chr(nume);
inc(y,1);
if y > 23 then
begin
y := 1;
x := x + 7;
end;
until nume > 232;
gotoxy(10,24);
write('pulse una tecla o ESC');
repeat
tecla := readkey;
if tecla = #0 then
begin
tecla := readkey;
gotoxy(20,38);
write(' ');
write(ord(tecla),' ',tecla);
end
else
begin
gotoxy(20,38);
write(' ');
write(ord(tecla),' ',tecla);
end;
until tecla = #27;
end.