Дан двумерный массив размером n*m, заполненный случайными числами. Найти сумму его элементов, расположенных между максимальным и минимальным элементами (включая оба этих числа) - программный код для делфи

В Делфи не проверял, но должна работать. Если что, пиши.

const

n=5;

m=6;

var

a:array[1 ... n, 1 ... m]of integer;

i, j, s, p, min, max:integer;

begin

s:=0;

p:=0;

for i:=1 to n do

for j:=1 to m do

a[i, j]:=random (10);

min:=a[1,1];

max:=min;

for i:=1 to n do

begin

for j:=1 to m do

begin

write (a[i, j]:3);

if a[i, j]>max then max:=a[i, j];

if a[i, j]
end;

writeln

end;

for i:=1 to n do

begin

if p>2 then break;

for j:=1 to m do

begin

if p>2 then break;

if a[i, j]=max then p:=p+1;

if a[i, j]=min then p:=p+2;

if p>0 then s:=s+a[i, j];

end;

end;

writeln ('S=', s)

end.