[ Foro de Pascal ]

hacer un cuadro simple con freepascal

hace tiempo hice un cuadrito en turbo pascal
lo probe en freepascal y no sale bien a continuacion pongo el codigo
gracias de antemanoi por su ayuda.

program cuadro;
uses crt;

procedure cuadro2(x1,y1,x2,y2:byte);
var
i:byte;
s:char;
begin
s:=#205;

for i:=(x1+1) to (x2-1) do
begin
gotoxy(i,y1);write(s);
gotoxy(i,y2);write(s);
end;
s:=#186;
for i:=(y1+1) to (y2-1) do
begin
gotoxy(x1,i);write(s);
gotoxy(x2,i);write(s);
end;
s:=#201;
gotoxy(x1,y1);write(s);
s:=#187;
gotoxy(x2,y1);write(s);
s:=#200;
gotoxy(x1,y2);write(s);
s:=#188;
gotoxy(x2,y2);write(s);
end;

begin
clrscr;
cuadro2(5,5,75,21);
readln;
end.

Los códigos ASCII como el 201 no serán válidos en equipos recientes. Tendrás que reemplazarlos por caracteres del alfabeto inglés, los que aparecen en el teclado, si quieres que funcionen en cualquier sistema.