Массив a(6х8), найти сумму положительных элементов и вычесть произведение максимума и минимума (максимум и минимум искать по модулю). на паскале, как можно проще =*

Const n=6; m=8; var  a: array[1..n,1..m] of integer; i,j,max,min,s: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(51)-25;     write(a[i,j]: 4);   end;   writeln;   end; max: =abs(a[1,1]); min: =abs(a[1,1]); s: =0; for i: =1 to n do   for j: =1 to m do   begin   if a[i,j]> 0 then s: =s+a[i,j];   if abs(a[i,j])> max then max: =abs(a[i,j]);   if abs(a[i,j])< min then min: =abs(a[i,j]);   end; writeln('s = ',s,' max = ',max,' min = ',min); writeln('s - max * min = ',s-max*min); end. пример: исходный массив:   -10    4    9 -21    9  24  24 -24   -23 -21  21  24 -18 -15  14  -8     2 -23 -17    5  17  -8 -10 -16   -22  -9    6 -21    3 -13  18  13   -8  -3 -25  -6  -2    8  14  25   -19 -10  22  -1  -6 -20  -5 -17 s = 262 max = 25 min = 1 s - max * min = 237

Разберем, если бернс спит: виктор и андре спят дан тоже, но у нас сказано, что гео тогда не спит, а он должен. - значит, бернс не спит если андре спит, значит дан спит, и всё. такая же ситуация с виктором и гео не получится, ведь андре не будет спать, что противоречит утверждению значит спят андре и дан