есть программа поиска минимума строк матрицы, нужно добавить процедуры и функции

[superrim]

язык фри паскаль
нужно добавить фасеты т.е. что бы можно было выбирать, вывод матрицы справа или слева, поиск минимума или максимума по столбцам или по строкам

const
n=6;
m=6;
 
type
  arr=array[1..n,1..m] of integer;
 
procedure init(var a: arr; n,m: integer);
var i,j: integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:=random(21)-10;
end;
 
procedure outPut(var a: arr; n,m: integer);
var i,j: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end;
 
procedure find(var a: arr; n,m: integer);
var i,j,min: integer;
begin
  for i:=1 to n do
  begin
  min:=a[i,1];
    for j:=2 to m do
      if a[i,j]<min then min:=a[i,j];
    writeln('В ',i,'-й строке min = ',min);
  end;
end;
 
var
  ar: arr;
begin
  writeln('Исходная матрица:');
  init(ar,n,m);
  outPut(ar,n,m);
  find(ar,n,m);
end.

[Stilet]

Что такое "фасеты"?