A: Quite simple. Just 
apply TextMode (C80 + font8x8).  Requires a
"uses Crt;". First, however, you should test that you 
have a at
least an EGA video adapter. (See DetectGraph in your TP 
manual).
Also see TSUTLE.NWS in ftp://garbo.uwasa.fi/pc/ts/tsutle22.zip 
(or
whichever version number is the current) for the non-standard wide
text modes like 132x43.
  { An example }
  uses Crt;
  var InitialMode : integer;
  begin
    InitialMode := LastMode;
    TextMode (CO80 + Font8x8);
    TextColor (LightCyan);
    writeln ('Test1');
    readln;
    {}
    TextMode (CO40);
    writeln ('Test2');
    readln;
    {}
    TextMode (InitialMode);
    TextColor (Yellow);
    writeln ('Test3');
    readln;
  end.