Дана действительная матрица размером 6*9. Найти среднее арифметическое наибольшего и наименьшего значений её элементов в строках.

program nikita;
uses crt;
const
n=6;
m=9;
var
a:array[1..n,1..m] of longint;
i,p,min,max,z:longint;
k:real;
begin
clrscr;
randomize;
for i:=1 to n do
for p:=1 to m do
begin
a[i,p]:=random(500);
end;
for i:=1 to n do
begin
for p:=1 to m do
write(a[i,p]:5);
writeln;
end;
min:=a[1,1];
max:=a[1,1];
for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[1,p]>max then
 max:=a[1,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[1,p]<min then
 min:=a[1,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое в первой строке равно ',k);
 writeln;
 min:=a[2,1];
 max:=a[2,1];
for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[2,p]>max then
 max:=a[2,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[2,p]<min then
 min:=a[2,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое во второй строке равно ',k);
 writeln;
 min:=a[3,1];
 max:=a[3,1];
 for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[3,p]>max then
 max:=a[3,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[3,p]<min then
 min:=a[3,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое в третьей строке равно ',k);
 writeln;
 min:=a[4,1];
 max:=a[4,1];
 for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[4,p]>max then
 max:=a[4,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[4,p]<min then
 min:=a[4,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое в четвёртой строке равно ',k);
 writeln;
 min:=a[5,1];
 max:=a[5,1];
 for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[5,p]>max then
 max:=a[5,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[5,p]<min then
 min:=a[5,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое в пятой строке равно ',k);
 writeln;
 min:=a[6,1];
 max:=a[6,1];
 for z:=1 to m-1 do
 for p:=1 to m-1 do
 if a[6,p]>max then
 max:=a[6,p];
 write(max,' ');
 for z:=1 to m-1 do
  for p:=1 to m-1 do
 if a[6,p]<min then
 min:=a[6,p];
 write(min);
 writeln;
 k:=(max+min)/2;
 write('Среднее арифметическое в шетой строке равно ',k);
 writeln;
end.

Program mas;
Uses crt;
Const n=6; m=9;
Var a: array[1..n,1..m] of integer; b: array[1..n] of real; i,j: byte; min,max: integer;
Begin
Clrscr;
Randomize;
For i:=1 to n do
For j:=1 to m do
a[i,j]:=random(9);
For i:=1 to n do
begin
min:=a[i,1];
max:=a[i,1];
For j:=1 to m do
begin
If a[i,j]<min then
min:=a[i,j];
If a[i,j]>max then
max:=a[i,j];
end;
b[i]:=(max+min)/2;
end;
For i:=1 to n do
begin
For j:=1 to m do
Write(a[i,j],'  ');
Write('    ',b[i]:3:1);
Writeln;
end;
End.

var
 Min, Max: word;
 i, j: word;
 Matix: array [1..6, 1..9] of word;
 Arr: array [1..6] of word;
begin 
 for i := 1 to 6 do
 begin
  Min := Matix[i, 1];
  Max := Min;
  for j := 1 to 9 do
  begin
   if Martix[i, j] > Max then//ищем максимальное
    Max := Matrx[i, j];
   if Martix[i, j] < Min then//ищем минимальное
    Min := Matrx[i, j];   
  end;
  Arr[i] := (Min+Max)/2;//Получили массив средних
 end;
end;