Реализация функцией

program a1;
const
  n=7;
var
  a: array[1..n,1..n] of integer;
 
  i,j,min: byte;
begin
  writeln('Исходный масив: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  min:=a[1,1];
  writeln('Полученый одномерный масив:');
  for j:=1 to n-1 do
  begin
    for i:=1 to n-j do
    begin
      if a[i,j]<min then
        min:=a[i,j];
      write(a[i,j]:4);
    end;
  end;
  writeln;
  writeln('Минимум = ',min);
end.

uses crt;
const n=7;
      m=21;//(7*7-7)/2
type mtr=array[1..n,1..n] of integer;
     mas=array[1..m] of integer;
procedure matrix(var a:mtr);
var i,j:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(99)+1;
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure massiv(a:mtr;var b:mas);
var i,j,k:integer;
begin
writeln('Массив элементов выше главной диагонали');
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  k:=k+1;
  b[k]:=a[i,j];
  write(b[k]:4);
 end;
writeln
end;
function min(b:mas):integer;
var i,mn:integer;
begin
mn:=b[1];
for i:=2 to m do
if b[i]<mn then mn:=b[i];
min:=mn
end;
var a:mtr;
    b:mas;
begin
matrix(a);
massiv(a,b);
write('Минимальный=',min(b))
end.