3) Максимальный элемент в заданной группе соседних строк матрицы A(n,n).Паскаль

Ошибки не происходит с кодом из сайта, см. рис так в чем ошибка?

Увидел пояснения "Наверно, группа соседних строк = строки с i-й по j-ую". Ответ т.к. i = j, получится все строки. Соседние - это сверху и снизу. Да, великий и могучий русский язык. Сколько людей столько и мнений....Ошибку не признаю.

const  n = 10;var  x:array[1..n, 1..n] of integer;  i,j,i1,i2,xmax:integer;begin  Randomize;  Write('Введите через пробел номера строк матрицы для поиска: ');  Read(i1,i2);  Writeln('Исходная матрица');  for i:=1 to n do  begin    for j:=1 to n do    begin      x[i,j]:=Random(101)-50;      Write(x[i,j]:4)    end;    Writeln  end;  xmax:=x[i1,1];  for i:=i1 to i2 do    for j:=1 to n do      if xmax<x[i,j] then xmax:=x[i,j];  Writeln('Максимальный элемент в указанном диапазоне: ', xmax);end.Тестовое решение:Введите через пробел номера строк матрицы для поиска: 4 6Исходная матрица  13   2  30  10  -5  42  45  41  13  17 -10  37  47  16 -37 -41  11 -37  -1 -48 -26  -9 -15   5 -31 -36  44  30   4 -20 -34   9  34  43  22 -36  35   1  33  11 -14  22  16 -42  15   4  48  -6 -18  45 -25   1  41  26 -39 -29 -34 -25 -10 -19  48 -35 -13 -18   1  32 -48 -47  45  49 -25 -40 -19  39  16   3  26 -23  41  16 -34   0  -3   9 -45  15  18 -42  32   0  48  10 -40   1  13 -29 -15 -17   7  34Максимальный элемент в указанном диапазоне: 48

const nx =20;var i,j,n,m,max:integer; A:array[1..nx,1..nx] of integer;begin write('Введите размер матрицы n'); Read(n);max:=-100;write('Введите номер строки m, меньше ',n-1); Read(m);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:= random(100)-50;if A[m-1,j] > max then max:= A[i,m-1];if A[m,j] > max then max:= A[i,m];if A[m+1,j] > max then max:= A[i,m+1];write(A[i,j]:3);end;writeln;end;write('Максимальный элемент ' ,m, '-й и соседних строк матрицы = ', max);end.