Подпрограммы: найти минимальный из максимальных элементов строк матриц

Program matrica;
uses
  crt;
const
  n=10;
type
  vector=array[1..n] of real;
  matrica=array [1..3,1..4] of real;
var
  a,b:matrica;
  i,j:integer;
  max:real;
function Maximum (V:vector;n:integer):real;
var
  i,j:integer;
  m:real;
Begin
  m:=V[1];
  for i:=2 to n do
    if V[i]>m then
      m:=V[i];
  Maximum :=m;
end;
function Minimum (V:vector; n:integer):real;
var
  i:integer;
  m:real;
Begin
  m:=V[1];
  for i:=2 to n do
    if V[i]<m then
      m:=V[i];
  Minimum:=m;
end;

Program matrix;//нельзя называть программу как подпрограмму
uses  crt;
const n=3;//ваш размер матрицы
function Maximum (V:array of real):real;//функция с открытым массивом
var
  i:integer;
  m:real;
Begin
m:=V[1];
for i:=0 to high(V) do//от начала до конца массива
if V[i]>m then m:=V[i];
Maximum :=m;
end;
function Minimum (V:array of real):real;
var
  i:integer;
  m:real;
Begin
m:=V[1];
for i:=0 to high(V) do
if V[i]<m then m:=V[i];
Minimum:=m;
end;
var a:array [1..n,1..n] of real;
    i,j:integer;
begin
clrscr;
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
for i:=1 to n do
 begin
  write('В строке ',i,' максимум=',Maximum(a[i]):0:2);//вызываем функции для каждой строки матрицы
  writeln('  минимум=',Minimum(a[i]):0:2);
 end;
readln
end.

Program matrix;
uses  crt;
const
  a:array [1..3,1..3] of real=((1,2,3),(4,5,6),(7,8,9));
  b:array [1..4,1..5] of real=((1,2,3,4,5),(6,7,8,9,1),(2,3,4,5,6),(7,8,9,1,2));
function Maximum (V:array of real):real;
var i:integer;
  m:real;
Begin
m:=V[1];
for i:=0 to high(V) do
if V[i]>m then m:=V[i];
Maximum :=m;
end;
function Minimum (V:array of real):real;
var
  i:integer;
  m,r:real;
Begin
m:=V[1];
for i:=0 to high(V) do
if V[i]<m then m:=V[i];
Minimum:=m;
end;
var i,r:integer;
 
begin
clrscr;
for i:= 1 to 3 do
begin
 write('v stroke ',i,' maxsimum=',Maximum(a[i]):0:1,' ');
  writeln('minimum=',Minimum(a[i]):0:1);
end;
writeln;
writeln;
for i:=1 to 4 do
begin
   write('v stroke ',i,' maxsimum=',Maximum(b[i]):0:1,' ');
  writeln('minimum=',Minimum(b[i]):0:1);
end;
readln
end.

function Maximum(v: array of real): real;
  var
    i: integer;
    m: real;
  Begin
    m:=v[0];
    for i:=1 to high(v) do
      if v[i]>m then m:=v[i];
    Maximum:=m;
  end;
 
function Minimum(v: array of real): real;
  var
    i: integer;
    m: real;
  Begin
    m:=v[0];
    for i:=1 to high(v) do
      if v[i]<m then m:=v[i];
    Minimum:=m;
  end;

Program matrix;
uses  crt;
const
  a:array [1..3,1..3] of byte=((1,2,3),(4,5,6),(7,8,9));
  b:array [1..4,1..5] of byte=((1,2,3,4,5),(6,7,8,9,1),(2,3,4,5,6),(7,8,9,1,2));
function Maximum (V:array of byte):byte;
 var
  i,m:byte;
 Begin
  m:=V[1];
   for i:=0 to high(V) do
    if V[i]>m then m:=V[i];
  Maximum :=m;
 end;
function Minimum (V:array of byte):byte;
 var
  i,m:byte;
 Begin
  m:=V[1];
   for i:=0 to high(V) do
    if V[i]<m then m:=V[i];
  Minimum:=m;
 end;
var m,i,x:byte;
    c: array [1..5] of byte;
begin
clrscr;
 for i:= 1 to 3 do
  begin
   write('v stroke ',i,' maxsimum=',Maximum(a[i]),' ');
   writeln('minimum=',Minimum(a[i]));
   c[i]:=maximum(a[i]);
   x:=c[1];
    if x>c[i] then x:=c[i];
  end;
writeln ('minimalnii iz maximalnih elementov matrici :', x);
writeln;
writeln;
 for i:=1 to 4 do
  begin
   write('v stroke ',i,' maxsimum=',Maximum(b[i]),' ');
   writeln('minimum=',Minimum(b[i]));
   c[i]:=maximum(b[i]);
   x:=c[1];
    if x>c[i] then x:=c[i];
  end;
writeln ('minimalnii iz maximalnih elementov matrici :', x);
readln
end.