Programmation pascal

À mon avis, il n'existe rien de déjà fait pour la console (en mode graphique peut-être ?)
Toutefois voici une procédure qui te suffira peut-être...

procedure Encadre(s:string);
var i,n:integer;
begin
  n:=length(s);
  for i:=1 to n+4 do
    write('-');
  writeln;
  writeln('| ',s,' |');
  for i:=1 to n+4 do
    write('-');
  writeln;
end;