Ошибка в программе,двумерный массив. PASCAL

[Ilovesport]

Ввести двумерный массив Anxm,вывести его. Возвести в квадрат все строки, расположенные между строкой,содержащей максимум матрицы,и строкой,содержащей минимум этой матрицы.


Хээлп ми!) Помогите найти ошибку и ещё через процедуры нужно решить
помогите..)

uses crt;
var
      x : array [1..10,1..10] of integer;

      i, j,m, n : byte;

      min,max : integer;

      min_i,max_i,int   : byte;

begin
   write('razmer massiva : '); 
   readln(m,n);
   writeln('Masive:');

   for i:= 1 to m do
    for j:=1 to n do               {ввод массива }
     read(x[i,j]);

    max:= x[1,1];
    min:= x[1,1];
    min_i:= 1;
    max_i:= 1;

    for i:=1 to m do
      for j:=1 to n do
        begin

          if x[i,j] > max
            then
              begin
                   max:= x[i,j];
                 max_i:= i;
              end;

          if x[i,j] < min
            then
              begin
                  min:= x[i,j];
                min_i:= i;
              end;

        end;

      if (min_i = max_i) or (abs(min_i - max_i) < 2)
        then
          writeln('maksimalniy i minimalniy elementy nahodyatsya v odnoy ili sosednih stroke(ah).')
        else
            if max_i > min_i
              then
                  for i:=min_i+1 to max_i-1 do
                    for j:= 1 to n do
                      x[i,j]:= sqr(x[i,j])

              else
                  for i:= max_i+1 to min_i-1 do
                    for j:=1 to n do
                      x[i,j]:= sqr(x[i,j]);

    writeln('________result:');
     for i:=1 to m do
      begin
        for j:= 1 to n do
         write(x[i,j],' ');
        writeln;
       end;

   end.

[Ilovesport]

up
Ребят помогите через процедуры решить эту задачу. Пока в больничке лежал всё пропустил теперь не знаю че делать))