Двумерный массив

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,m,sum1,sum2,k,max,tempj,tempi:integer;
    sr:real;
 begin
  ClrScr;
  Randomize;
  repeat
   Write('n=');
   Readln(n);
   Write('m=');
   Readln(m);
  until (n>1) and (m>1);
   Writeln('Матрица...');
    for i:=1 to n do
     begin
      for j:=1 to m do
       begin
        a[i,j]:=random(20)-10;
        Write(a[i,j]:4);
       end;
      Writeln;
     end;
   max:=1;
    for i:=1 to n do
     for j:=1 to m do
      if a[i,j]>max then
       begin
        max:=a[i,j];
        tempj:=j;
        tempi:=i;
       end;
     sum1:=0;
     for j:=1 to m do
       for i:=1 to n do
        if j>tempj then
         sum1:=sum1+a[i,j];
     sum2:=0;
      for i:=1 to n do
       for j:=1 to m do
        if i>tempi then
         begin
          k:=k+1;
          sum2:=sum2+a[i,j];
         end;
     sr:=sum2/k;
   Writeln('Максимальный ',max,'   ',' Индекс столбца ',tempj);
   Writeln('Сумма ',sum1);
   Writeln('Среднее арифметическое ',sr:0:2);
  Readln;
 end.