Ошибка цикла при вычислении максимального элемента массива

program prim2;
  uses crt;
  type mas=array[1..100,1..100] of      integer;
  var a:mas;
      sr, i,j,n: integer;
      max,min,i1,j1,i2,j2:integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
  for i:=1 to n do
    begin
 
      for j:=1 to n do
        begin
 
          a[i,j]:=random(45)-22;
 
          write(a[i,j]:4);
 
          if a[i,j]>max then
            begin
              max:=a[i,j];i1 :=i; j1 :=j;
            end;
        end;
 
      write (' ìàõ=',max, ' ctpoka=',i1,' cmon6e4 =',j1);
      writeln;
    end;
  readln;
  for i:= 1 to n do
  for j :=1 to n do
         begin
                If  a[i,j] = max then
                begin
                sr:=0;
                writeln;
                begin
                for i:= 1 to n do;
                        for j := 1 to i do;
                        sr:=sr+a[i,j];
                         for  i:= 1 to n do;
                         for j := i+1to n do;
                                begin
                                        a[i,j]:= a[i,j]+sr;
                                        readln;
                                        writeln('------');
 
                                        for i:= 1 to n do;
                                        for j:= 1 to n do ;
                                         writeln (a[i,j]);
                                end;
               end;
 
   end;
end.