Pascal: Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые стоят перед максимальным элементом

const n=5; m=6; var  a:array[1..n,1..m] of integer; i,j,max,imax,jmax,s:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do  begin  for j:=1 to m do   begin    a[i,j]:=random(100);    write(a[i,j]:4);   end;   writeln;  end; max:=a[1,1]; imax:=1; jmax:=1; for i:=1 to n do  for j:=1 to m do   if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; writeln('max = a[',imax,',',jmax,'] = ',max); s:=0; for i:=1 to imax-1 do  for j:=1 to m do s:=s+a[i,j]; for j:=1 to jmax-1 do s:=s+a[imax,j]; writeln('s = ',s); end. Пример: Исходный массив:   75  39  34  25  29  87   57  12  73  49  75  21   48  99  16  57  23  43   74  70  13   2  35  44   21  49  90  91  12  38 max = a[3,2] = 99 s = 624