{****************************************************************************
 **                                                                        **
 **  This procedure draws an error window and message on the screen.       **
 **                                                                        **
 **  This procedure uses no other procedures or functions.                 **
 **                                                                        **
 **  Input : Errormessage string.                                          **
 **                                                                        **
 **  Output : Error window and message to the screen then pauses.          **
 **                                                                        **
 ****************************************************************************}

procedure ErrorWin (ErrorMsg :string;
                    var Ch   :char );
begin
  MkWin(5,15,75,19,yellow,red,2);
  WriteBetween(5,75,17,white,red,ErrorMsg);
  Ch := ReadKey;
  RmWin;
end;