Sì... ho invertito una cosa... ho corretto adesso il codice (purtroppo c'è stato un mancato aggiornamento tra il Turbo Pascal ed il Blocco Note! )

Errata corrige:
codice:
Program Cornice;
Uses Crt;

   Procedure disegna(X, Y, W, H: integer);
   Var i, j: Integer;
   Begin
      GotoXY(X, Y);
      For i:=1 To H Do
      Begin
         Write(#219);
         For j:= 1 To W-2 Do
            If ((i = 1) Or (i = H)) Then
               Write(#219)
            Else
               Write(' ');
         Write(#219);
         GotoXY(X, Y+i);
      End;
   End;

Begin
   ClrScr;
   disegna(5, 5, 10, 10);
   Repeat Until Keypressed;
End.
Ciao.