В матрице найти указанные величины

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..100,1..100] of Integer;
    min,max,min_i,min_j,max_i,max_j,i,j,n,suma_all_array,p:integer;
    start_i,start_j,finish_i,finish_j:Integer;
procedure minimum(var a,b:Integer);
var x:integer;
begin
  if (a>b) then
    begin
      x:=a;
      a:=b;
      b:=x;
    end;
end;
begin
  Randomize;suma_all_array:=0;p:=1;
  Write('Enter size of array = ');Readln(n);
  Writeln('Array [general]');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          mas[i,j]:=Random(50);
          Write(mas[i,j],' ');
          if ((i=1) and (j=1)) then
            begin
              min_i:=1; min_j:=1;min:=mas[1,1];
              max_i:=1;max_j:=1;max:=mas[1,1];
            end
          else
            begin
              if (mas[i,j]<min) then
                begin
                  min:=mas[i,j];
                  min_i:=i;
                  min_j:=j;
                end;
              if (mas[i,j]>max) then
                begin
                  max:=mas[i,j];
                  max_i:=i;
                  max_j:=j;
                end;
            end;
          suma_all_array:=suma_all_array+mas[i,j];
        end;
      Writeln;
    end;
  Writeln;
  Writeln('MIN = ',min,' [',min_i,',',min_j,']');
  Writeln('MAX = ',max,' [',max_i,',',max_j,']');
  if ((min_i=max_i) and (min_j=max_j)) then
    begin
      Write('MIN = MAX');
      Readln;
      Exit;
    end;
 
  if (min_i<min_i) then
    begin
      start_i:=min_i;
      finish_i:=max_i;
    end
  else
    begin
      start_i:=max_i;
      finish_i:=min_i;
    end;
  if (min_j<min_j) then
    begin
      start_j:=min_j;
      finish_j:=max_j;
    end
  else
    begin
      start_j:=max_j;
      finish_j:=min_j;
    end;
  Writeln('Rectangle [',start_i,',',start_j,'] => [',finish_i,',',finish_j,']');
  Writeln('Suma [all array] = ',suma_all_array);
  minimum(start_i,finish_i);
  minimum(start_j,finish_j);
  for i:=start_i to finish_i do
    begin
      for j:=start_j to finish_j do
        begin
          p:=p*mas[i,j];
         suma_all_array:=suma_all_array-mas[i,j];
        end;
    end;
  Writeln('Suma [out rectangle] = ',suma_all_array);
  Writeln('P [in array] = ',p);
Readln;
end.