Написал прогу в паскаль в ответ после запуска выдает ошибку.Что не так?

[sawel23]

Сама задача.
Пират в подземелье. В поисках драгоценных камней пират проваливается в подземелье. План подземелья – матрица N*M комнат с драгоценными камнями. Камни из одной комнаты имеют одинаковую стоимость. Пирату в каждой комнате разрешается взять всего лишь один камень с собой и следовать в любую другую соседнюю с ней комнату. Каждую из комнат пират может посещать всего лишь один раз. Требуется составить алгоритм-программу определения маршрута посещения пиратом К комнат лабиринта таким образом, чтобы он набрал камней на максимально возможную сумму. Входные и выходные данные: В первой строке входного файла содержатся числа N,M,K. В следующих N строках располагается матрица N*M лабиринта. Каждый элемент матрицы представляется стоимостью камня соответствующей комнаты. Маршрут начинается с левой верхней угловой комнаты лабиринта. Выходные данные: содержат единственное число, равное общей стоимости взятых с собой камней.
Пример файла исходных данных:
3 4 7
1 1 1 1
1 1 2 1
1 1 2 3

И вот что я написал.
Пират в подземелье.

uses crt; 
Const k=100; 
      dx:array[1..4] of Integer=(1,0,-1,0); 
      dy:array[1..4] of Integer=(0,1,0,-1); 
Type mas=array[0..k,0..k]of Integer; 
     mas2=array[0..k,0..k]of boolean; 
 var n,m,sum1,sum,col:integer; 
     A:mas; 
     B:mas2; 
  Procedure Init(z:string); 
   Var f:text; 
       i,j:integer; 
   Begin 
  Assign(f,z); 
  Reset(f); 
  FillChar(A,SizeOf(A),0); 
  FillChar(B,SizeOf(B),true); 
  ReadLn(f,n,m,col); 
   for i:=1 to n do 
     begin 
    for j:=1 to m do 
     Read(f,A[i,j]); 
     ReadLn(f); 
     end; 
  Close(f); 
   End; 
 Procedure Solve(x,y,p:integer); 
  var i,j:integer; 
 begin 
If p=0 then begin 
     If sum>sum1 then 
     sum1:=sum; 
           end 
  Else begin 
     For i:=1 to 4 do 
      If (A[x+dx,y+dy[i}}>0)and B[x+dx,y+dy[i}} then 
        begin 
       sum:=sum+A[x+dx,y+dy[i 
       B[x+dx,y+dy[i}}:=false; 
       Solve(x+dx,y+dy,p-1); 
       sum:=sum-A[x+dx,y+dy[i}}; 
       B[x+dx,y+dy[i}}:=true; 
        end; 
       end; 
 end; 
begin 
 clrscr; 
  Init('C:\matrica.txt'); 
  sum1:=0; sum:=A[1,1]; 
  Solve(1,1,col); 
  WriteLn('Result= ',sum1); 
 readkey; 
end.

И вот в чем моя проблема,при нажатии Сtrl+F9 Вмество выходных данны черное окно и тухнет.

[sawel23]

Я вот думаю что он не может считать матрицу с диска С но не пойму как сделать так чтобы прочитал ее.Возможно есть другой способ ее туда запихнуть?Выглядит она так

3 4 7
1 1 1 1
1 1 2 1
1 1 2 3
но это всего лишь догадки помогите кто шарит запустить прогу.

[_-Re@l-_]

Как бы Alt+F9 это проверка программы на ошибки, а не запуск. Запуск это
Ctrl+F9

[sawel23]

Сообщение от _-Re@l-_

Как бы Alt+F9 это проверка программы на ошибки, а не запуск. Запуск это
Ctrl+F9

Я понимаю,просто опечатался прога не запускается тупо черное окно и вылетает из проги..

[_-Re@l-_]

попробуй вместо readkey readln

[sawel23]

Сообщение от _-Re@l-_

попробуй вместо readkey readln

не,не катит вобще ошибку выдает..