Паскаль, В чем ошибка программы, кто знает поясните ошибку или хоть как то помогите, очень надо.

program lab;
const Nmass=15;
const Mmass=20;
var A : array[1..Nmass,1..Mmass] of integer;
C : array [1..Mmass] of integer;
B : array[1..Nmass,1..Mmass] of integer;
k,l,S,imin,jmin,jmax,imax,N,M,max,min,i,j: integer;
begin
cls;
writeLn('Введите число строк затем столбцов в массиве A');
readLn(N,M);
writeLn('Вводим элементы массива A:');

for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readLn(A[i,j]);
end;

writeLn;
writeLn('массив A до изменения: ');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:5);
writeLn;
end;

for i:=1 to N do
begin
for j:=1 to M do
begin
for k:=i to m do
for l:=j to n do
B[k,l]:=A[i,j]
end;
end;

for j:=1 to M do
begin
max:=A[1,j];
min:=A[1,j];
for i:=1 to N do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
if a[i,j]imin then
For k:=jmin to jmax do
begin
s:=0;
For l:=imin to imax do
s:= s+B[l,k];
C[k]:=s;
write(C[k]:5);
writeLn;
end;

if imax<imin then
for k:=jmax to jmin do
begin
s:=0;
for l:=imax to imin do
s:= s+B[l,k];
C[k]:=s;
write(C[k]:5);
writeLn;
end;

end;
end.