Помогите написать игру лабиринт. Игра должна быть оформлена.
Меню
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;

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