Создать функцию...

uses crt;
const
  max=5;
var
  D:array [1..max-1,1..max] of integer;
  E:array [1..max-2,1..max] of integer;
  minD:array [1..max-1] of integer;
  minE:array [1..max-2] of integer;
  i,j,min,temp:integer;
{îñíîâíàÿ ïðîãðàììà}
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì}
  writeln('Èñõîäíàÿ ìàòðèöà D:');
  writeln('------------------');
  for i:=1 to max-1 do
  begin
    for j:=1 to max do
    begin
      readln(temp);
      D[i,j]:=temp;
      write(D[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
  {çàïîëíÿåì è âûûâîäèì}
  writeln('Èñõîäíàÿ ìàòðèöà E:');
  writeln('------------------');
  for i:=1 to max-2 do
  begin
    for j:=1 to max do
    begin
      readln(temp);
      E[i,j]:=temp;
      write(E[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
  {îïðåäåëÿåì íàèáîëüøèé ìèíèìàëüíûé ýëåìåíò â ìàòðèöå D}
  for i:=1 to max-1 do
  begin
    min:=D[i,1];
    for j:=2 to max do
      if D[i,j]<min then
        min:=D[i,j];
    minD[i]:=min;
    writeln('Ìèíèìàëüíûé ýëåìåíò ',i,' ñòðîêè ìàòðèöû D:',min);
  end;
  min:=minD[1];
  for i:=2 to max-1 do
    if minD[i]>min then
      min:=minD[i];
  writeln('Íàèáîëüøèé èç ìèíèìàëüíûõ ýëåíòîâ ìàòðèöû D:',min);
  {îïðåäåëÿåì íàèáîëüøèé ìèíèìàëüíûé ýëåìåíò â ìàòðèöå E}
  for i:=1 to max-2 do
  begin
    min:=E[i,1];
    for j:=2 to max do
      if E[i,j]<min then
        min:=E[i,j];
    minE[i]:=min;
    writeln('Ìèíèìàëüíûé ýëåìåíò ',i,' ñòðîêè ìàòðèöû E:',min);
  end;
  min:=minE[1];
  for i:=2 to max-2 do
    if minE[i]>min then
      min:=minE[i];
  writeln('Íàèáîëüøèé èç ìèíèìàëüíûõ ýëåíòîâ ìàòðèöû E:',min)
end.

uses crt;
const max=5;{максимальный размер параметров матрицы}
type matr=array [1..max,1..max] of integer;{тип применяемых матриц}
procedure Vvod(var a:matr;x,y:integer;c:char);{ввод данных в матрицу с клавиатуры
выходной параметр-матрица, входные параметры - ее размеры и индекс(D,E)}
var i,j:integer;
begin
writeln('Введите ',x*y,' элементов матрицы ',c);
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
end;
procedure Vyvod(var a:matr;x,y:integer;c:char);{вывод на экран таблицей, параметры те же}
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to y do
  write(a[i,j]:4);
  writeln;
 end;
end;
function MaxMin(a:matr;x,y:integer):integer;{вычисления по условию}
var i,j,mn,mx:integer;
begin
mn:=a[1,1];{ищем минимальный в первой строке}
for j:=1 to y do
if a[1,j]<mn then mn:=a[1,j];
mx:=mn;{пока он будет максимальный}
for i:=2 to x do{ищем в остальных строках}
 begin
  mn:=a[i,1];
  for j:=1 to y do
  if a[i,j]<mn then mn:=a[i,j];
  if mn>mx then mx:=mn;{если очередной минимум больше предыдущего максимального, он макс.}
 end;
MaxMin:=mx;{записываем значение функции}
end;
var d,e:matr;{матрицы по условию}
begin
clrscr;
Vvod(d,4,5,'D');{вводим данные с фактическими параметрами матриц}
Vvod(e,3,5,'E');
clrscr;{после ввода очистим экран}
Vyvod(d,4,5,'D');{выводим на экран}
writeln('Наибольший из минимальных элементов строк=',MaxMin(d,4,5));
{выводим значение функции с параметрами первой матрицы}
Vyvod(e,3,5,'E');
writeln('Наибольший из минимальных элементов строк=',MaxMin(e,3,5));{то же, второй}
readln
end.