Игра лабиринт, Помогите Опции

[pas]

Помогите написать игру лабиринт. Игра должна быть оформлена.
Меню
1.Играть
2.Помощ(Тут управление ну и т.д.)
3.Выход
Цель игры: Инраеш типо роботом ( можно изобразить ввиде точки или квадрата) Должен от точки начала лабиринта дойти до точки конца лабиринта.
Нужно использовать модуль: Graph и можно crt.

[pas]

Что делает эта процедура???

procedure initbgi;
var
  grdriver,
  grmode,
  errcode : integer;
begin
  grdriver := DETECT;
  grmode   := EGAhi;
  initgraph(grdriver, grmode, 'e:\bp\bgi');
  errcode:= graphresult;
  if errcode <> grok then
  begin
    writeln('Graphics error: ', grapherrormsg(errcode));
    halt(1);
  end;
end;

[Freedom]

Что делает эта процедура???

procedure initbgi;
var
  grdriver,
  grmode,
  errcode : integer;
begin
  grdriver := DETECT;
  grmode   := EGAhi;
  initgraph(grdriver, grmode, 'e:\bp\bgi');
  errcode:= graphresult;
  if errcode <> grok then
  begin
    writeln('Graphics error: ', grapherrormsg(errcode));
    halt(1);
  end;
end;

Инициализирует графический режим