Pascal/Turbo Pascal - como hacer un cuadro con tu nombre

{A ver si esto te ayuda}

program cuadro;

  uses

    crt;

  procedure cuadrotexto(posx, posy : integer;tex : string);

  var

    x, y : integer;

  begin

      y := 1;

      for x := 2 to length(tex) + 3 do

      begin

      gotoxy(posx + x,posy + y);write(chr(196));

      gotoxy(posx + x,posy + y + 2 );write(chr(196));

      end;

       gotoxy(posx + 1,posy + y);write(chr(218));

       gotoxy(posx + length(tex) + 4,posy + y);write(chr(191));

       gotoxy(posx + 1,posy + y + 2);write(chr(192));

       gotoxy(posx + length(tex) + 4,posy + y + 2);write(chr(217));

       gotoxy(posx + 1,posy + y + 1);write(chr(179));

       gotoxy(posx + length(tex) + 4,posy + y + 1);write(chr(179));

       gotoxy(posx + 3,posy + 2);write(tex);

  end;

  begin

       clrscr;

       cuadrotexto(37,12,'Demo'); {Posiciona el cuadro y el testo en pantalla}

       readkey;

  end.