Определить среднее арифметическое минимального и максимального элемента в каждом столбце

var A : array [1..5] of array [1..8] of integer; 
var max,min,average:integer; 
var i,j:integer; 
begin 
for i:=1 to 5 do 
begin 
for j:=1 to 8 do 
begin 
A[i][j] := random (41) + 30; 
write(A[i][j],' '); 
end; 
writeln; 
end; 
for i:=1 to 5 do 
begin 
for j:=1 to 8 do 
begin 
 
 
end; 
end; 
end.

const m=8; n=5; W=5;
var
  a: array [1..m,1..n] of Integer;
  i, j, mn, mx: Integer;
begin
  Randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=30+Random(41);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end; WriteLn;
  for j:=1 to n do begin
    mn:=a[1,j]; mx:=mn;
    for i:=2 to m do
      if mn>a[i,j] then mn:=a[i,j]
      else if mx<a[i,j] then mx:=a[i,j];
    Write((mn+mx)/2:W:1);
  end; WriteLn;
end.

const
  m = 8;
  n = 5;
  W = 5;
 
var
  a: array [1..m, 1..n] of Integer;
  i, j, mn, mx: Integer;
 
begin
  Randomize;
  for i := 1 to m do 
    for j := 1 to n do 
      a[i, j] := 30 + Random(41);
  for i := 1 to m do 
  begin
    for j := 1 to n do 
      Write(a[i, j]:W); 
    WriteLn;
  end;WriteLn;
  for j := 1 to n do 
  begin
    mn := a[1, j];mx := mn;
    for i := 2 to m do
      if mn > a[i, j] then mn := a[i, j]
      else if mx < a[i, j] then mx := a[i, j];
    Write((mn + mx) / 2:W:1);
  end;WriteLn;
end.