Вычислить среднее значение максимального и минимального элементов. Число элементов и интервал выбрать самостоятельно. Помогите, пожалуйста.

Готовое решение для Pascal ABC. Program n1; Uses Crt; var  a: array[1..20,1..20] of integer;  m,n,i,j,max,min: integer; begin  write('Введите размеры матрицы: ');  readln(m,n);  for i:=1 to m do  begin     for j:=1 to n do    begin       a[i,j]:=random(40)-20;       write(a[i,j]:6);    end;    writeln;   end;    max:=a[1,1]; min:=a[1,1];  for i:=1 to m do     for j:=1 to n do    begin       if a[i,j]>max then max:=a[i,j];      if a[i,j]