Найти среднее арифметическое наибольшего и наименьшего значений матрицы

Program Matr;
var
a:array[1..10,1..10] of real;
max,min,SA:real;
n,m,i,j:integer;
begin
max:=-999;
min:=999;
for i:=1 to 4 do
for j:=1 to 6 do begin
write('a[',i,',',j,']=');
read(a[i,j]);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
SA:=(min+max)/2;
writeln('sa=', sa);
end.

const n = 4; m = 6;
var a: array[1..n, 1..m] of real;
    max, min, SA: real;
    i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do begin
      write('a[', i, ',', j, ']=');
      read(a[i, j]);
      if (i = 1) and (j = 1) then begin
        max := a[i, j]; min := a[i, j];
      end;
      if a[i, j] > max then max := a[i, j];
      if a[i, j] < min then min := a[i, j];
    end;
  SA := (min + max) / 2;
  writeln('sa = ', sa);
end.