Сортировка по убыванию элементов в матрице по заданию

Program zadanie3;
 
Const
  Mmin = 20;
  pi=3.14;
  
Type 
  massiv=array [1..Mmin,1..Mmin] of real;
  
Var
  mas:massiv;
  M:integer;
  
Procedure input(var mas:massiv;M:integer);{Процедура заполнения массива}
var 
  i, j:integer;
  x:real;
begin
  randomize;
  for i:=1 to M do 
      for j:=1 to M do
        begin
          x:=-pi+random*(pi-(-pi));
          mas[i,j]:=exp(x)*(sin(x));
        end;
end;
 
Procedure output(var mas:massiv;M:integer);{Процедура вывода массива}
var 
  i,j:integer;
begin
  for i:=1 to M do
    begin
      for j:=1 to M do
        begin
          write(mas[i,j]:8:0);
        end;
      writeln;
    end;
end;
 
Procedure transformation(var mas:massiv;m:integer);{Процедура сортировки элементов}
var i,j,k:integer;
t:real;
begin
for i:=1 to m do
for j:=1 to m do
   for k:=1 to m-1 do
     if mas[i,k]>mas[i,k+1] then Begin
     t:=mas[i,k];
     mas[i,k]:=mas[i,k+1];
     mas[i,k+1]:=t;  
     End;
    end;
begin
  writeln('Упорядочить по убыванию элементы каждой строки матрицы [1..M,1.N] и вывести её');
  writeln('Введите границу массива. Максимальное значение границы 20');
  readln(M);
  input(mas, M);
  writeln('Первоначальная матрица');
  output(mas, M);
  transformation(mas,m);
  writeln('Преобразованная матрица');
  output(mas, M);
end.

program zadanie3;
 
const
  Mmin = 20;
 
type
  massiv = array [1..Mmin, 1..Mmin] of real;
 
var
  mas: massiv;
  M: integer;
 
procedure input(var mas: massiv; M: integer);{Процедура заполнения массива}
var
  i, j: integer;
  x: real;
begin
  randomize;
  for i := 1 to M do 
    for j := 1 to M do
    begin
      x := -pi + random * (2 * pi);
      mas[i, j] := exp(x) * (sin(x));
    end;
end;
 
procedure output(mas: massiv; M: integer);{Процедура вывода массива}
var
  i, j: integer;
begin
  for i := 1 to M do
  begin
    for j := 1 to M do
    begin
      write(mas[i, j]:8:2);
    end;
    writeln;
  end;
end;
 
procedure transformation(var mas: massiv; m: integer);{Процедура сортировки элементов}
var
  i, j, k: integer;
  t: real;
begin
  for i := 1 to m do
    for j := 1 to m do
      for k := 1 to m - 1 do
        if mas[i, k] < mas[i, k + 1] then 
        begin
          t := mas[i, k];
          mas[i, k] := mas[i, k + 1];
          mas[i, k + 1] := t;  
        end;
end;
 
begin
  writeln('Упорядочить по убыванию элементы каждой строки матрицы [1..M,1.N] и вывести её');
  writeln('Введите границу массива. Максимальное значение границы 20');
  readln(M);
  input(mas, M);
  writeln('Первоначальная матрица');
  output(mas, M);
  transformation(mas, m);
  writeln('Преобразованная матрица');
  output(mas, M);
end.