как сам лабиринт ввести не как постоянную как тут а считыванием с файла

[Korben5E]

давайте закатаем файл со следующим содержимым.

0010000000
1000010010
0001110011
0100010010
0000111010
0011101000
0001001000
1101001110
0100001000
0100001000

будем читать его построчно в переменную string
а после чтения строки - разбирать строку на элементы
т.е.

str : string

for i:=1 to 10 do
val(s[i],i,MapM[i, 1]);

вроде не ошибся....