Как создать вот такую игру?

[Adam]

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

[Alex Cones]

100 рублей и стучитесь ко мне в асю (58-28-39-6-39) или выкладывайте свои наработки.

[Adam]

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
4ec(y);
5:inc(y);
6ec(x);
7:inc(x);
end;
until k in [2,3];
readln
end.

После предпоследнего end нужно писать сообщения на результат хода. Я там написал, что если к=2, то проиграл. Если к=3, то выиграл. Если к=1, то стена. А когда я вбиваю числа то у меня она бесконечно выдает надпись 'Ваш ход 4-вперед, 5-назад, 6-влево,7-вправо'. Что делать, я уже вообще не пойму, где у меня ошибка...

[Hacker19_90]

Почему Массив a не используете?

[DRAgon™]

вы вообще свою программу запускали?

[Adam]

Запускал. Она постоянно выдает надпись 'Ваш ход 4-вперед, 5-назад, 6-влево,7-вправо'...