Описать программу она прилагается.

[sawel23]

Помогите пожалуйста!Описать каждую команду(строку программы).Буду очень благодарен!!!
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[i],y+dy[i]]>0)and B[x+dx[i],y+dy[i]] then begin
sum:=sum+A[x+dx[i],y+dy[i]];
B[x+dx[i],y+dy[i]]:=false;
Solve(x+dx[i],y+dy[i],p-1);
sum:=sum-A[x+dx[i],y+dy[i]];
B[x+dx[i],y+dy[i]]:=true;
end;
end;
end;



begin
clrscr;
Init('matrica.txt');
sum1:=0; sum:=A[1,1];
Solve(1,1,col);
WriteLn('Result= ',sum1);
readkey;
end.