определить в квадратной матрице порядка N квадрат размером M x M c наибольшей суммой элементов.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    f:text;
    n,i,j,m,s,mx,imx,jmx,k,p:integer;
begin
clrscr;
randomize;
assign(f,'matrica.txt');
rewrite(f);
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
writeln(f,'Ishodnaya matrica:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
    write(f,a[i,j]:4);
   end;
  writeln;
  writeln(f,'');
 end;
repeat
write('Размер квадрата от 1 до ',n,' m=');
readln(m);
until m in [1..n];
writeln(f,'M=',m);
{поиск квадрата}
mx:=a[1,1];
imx:=1;
jmx:=1;
for i:=1 to n-m+1 do
for j:=1 to n-m+1 do
 begin
  s:=0;
  for k:=i to i+m-1 do
  for p:=j to j+m-1 do
  s:=s+a[k,p];
  if s>mx then
   begin
    mx:=s;
    imx:=i;
    jmx:=j;
   end;
 end;
writeln(f,'Koordinaty [',imx,',',jmx,'] summa=',mx);
close(f);
{это для проверки, можно не писать}
writeln('Найденный квадрат:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i in [imx..imx+m-1])and (j in [jmx..jmx+m-1])
    then textcolor(12)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
write('Координаты [',imx,',',jmx,'] сумма=',mx);
readln
end.