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

В Делфи не проверял, но должна работать. Если что, пиши.const  n=5;  m=6;var   a:array[1..n,1..m]of integer;   i,j,s,p,min,max:integer;begins:=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]<min then min:=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.