Пример использования функции Chr для вычеркивания рамки — Pascal(Паскаль)

program ramka;
var
     tl,tr,bl,br,g,v:char;
     i:integer;
begin
     tl:=chr(218);    {символ левого верхнего угла}
     tr:=chr(191);    {символ правого верхнего угла}
     bl:=chr(192);    {символ левого нижнего угла}
     br:=chr(217);    {символ правого нижнего угла}
     g:=chr(196);     {символ горизонтальной линейки}
     v:=chr(179);     {символ вертикальной линейки}
     write(tl);
     for i:=1 to 32 do write(g);
     writeln(tr);
     writeln(v,'Пример использования функции CHR',v);
     writeln(v,'      для рисования рамки.      ',v);
     write(bl);
     for i:=1 to 32 do write(g);
     writeln(br);
end.