Как создать игру на массивах? - Pascal

Формулировка задачи:

Народ, всем привет! Я учусь на первом курсе в техническом ВУЗе. Недавно мы проходили тему "массивы". И нам на дом задали создать игру. Вот ссылка карты игры: http://www.7image.ru/pics/1010/74876819.png Нужно вводить команды (4, 5, 6, 7) для того, чтобы дойти до выигрыша (цифра 3). Цифра 0-это типа дороги. 1-это преграда ила стена. 2- это проигрыш. И программа также должна выдавать, что если я попал в 2-ку, то я проиграл. Вот что-то в этом роде. Графика для игры не нужна, просто чтобы высвечивалось "Введите команду" и т.д. Играть будем смотря на бумажку (картинку, которую я выложил), Помогите, я не знаю Паскаля на таком уровне, чтобы писать такие проги. Буду век благодарен!!!

Решение задачи: «Как создать игру на массивах?»

textual
                            Листинг программы 
                        

                            uses crt;
const n=5;
      a:array[1..n,1..n] of byte=((1,0,1,1,0),
                                  (2,0,1,1,0),
                                  (0,0,0,0,2),
                                  (2,0,1,3,0));
var x,y,k:byte;
begin
clrscr;
x:=2;
y:=n;
repeat
 repeat
  writeln('Ваш ход 4-вперед, 5-назад, 6-влево,7-вправо');
  readln(k);
 until k in [4..7];
  case k of
  4:dec(y);
  5:inc(y);
  6:dec(x);
  7:inc(x);
  end;
  {пишем сообщения на результат хода}
until k in [2,3];{если выигрыш или проигрыш}
readln
end.
                        