Написать программу с использованием подпрограмм – не менее двух процедур и одной функции

uses crt;
type Tmas=array[1..20] of real; {тип массив}
     Tmatr=array[1..20] of Tmas;{тип матрица}
procedure MinMax(x:byte;mt:Tmatr;var min,max:real; var imin,jmin,imax,jmax:byte);
{поиск мин макс и их координат, входные параметры размер матрицы и сама матрица, выходные параметры-значения мин, макс, и их координат}
var i,j:byte;
begin
max:=mt[1,1];min:=mt[1,1];imin:=1;jmin:=1;imax:=1;jmax:=1;
for i:=1 to x do
for j:=1 to x do
if mt[i,j]<min then
  begin
    min:=mt[i,j];
    imin:=i;
    jmin:=j;
  end
else if mt[i,j]>max then
  begin
    max:=mt[i,j];
    imax:=i;
    jmax:=j;
  end;
end;
procedure Obmen(x:byte;var mt:Tmatr;imin,jmax:byte);
{обмен элементов строки и столбца, работает корректно. Только если номера их совпадают, как в примере из методички. Там первая строка и первый столбец и все красиво, потому что элемент [1,1] меняется сам с собой. А если номера не совпадают, то либо один элемент из строки, либо из столбца должен исчезнуть, потому что на одном месте два элемента стоять не могут }
var i:byte;
    b:real;
begin
for i:=1 to x do
  begin
    b:=mt[imin,i];{запоминаем элемент строки}
    mt[imin,i]:=mt[i,jmax];{ставим на его мемто элемент столбца}
    mt[i,jmax]:=b;{на его место элемент строки}
  end;
end;
procedure Vector(x:byte;mt:Tmatr;var ms:Tmas);{создание вектора}
var i:byte;
begin
for i:=1 to x do
ms[i]:=mt[i,i];{записываем в него элементы главной диагонали}
end;
function SumVec(x:byte;ms:Tmas):real;{сумма элементов вектора}
var i:byte;
    sm:real;
begin
sm:=0;
for i:=1 to x do
sm:=sm+ms[i];{суммируем}
SumVec:=sm;
end;
 
var m:Tmatr;
    v:Tmas;
    mn,mx:real;
    n,i,j,imn,jmn,imx,jmx:byte;
begin
clrscr;
randomize;
write('Razmer matricy n=');
readln(n);
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        m[i,j]:=10*random;
        write(m[i,j]:5:2);
      end;
    writeln;
  end;
writeln;
MinMax(n,m,mn,mx,imn,jmn,imx,jmx);
writeln('Min element [',imn,',',jmn,']=',mn:0:2);
writeln('Max element [',imx,',',jmx,']=',mx:0:2);
writeln;
writeln('Izmenennaya matrica:');
Obmen(n,m,imn,jmx);
for i:=1 to n do
  begin
    for j:=1 to n do
    write(m[i,j]:5:2);
    writeln;
  end;
writeln;
writeln('Massiv:');
Vector(n,m,v);
for i:=1 to n do
write(v[i]:5:2);
writeln;
writeln('Summa=',SumVec(n,v):0:2);
readln
end.