Упорядочить (переставить) строки матрицы по убыванию значений последних элементов строк

program s1;
uses
  crt;
const
  Nmax = 10;
var
  a : array[1..Nmax,1..Nmax] of real;
  M,N,i,j,min,M1,z : byte;
  temp : real;
 
begin
  clrscr;
  writeln('Введите размер матрицы :');
  repeat
  write('M = ');
  readln(M);
  until M in [1..Nmax];
  repeat
  write('N = ');
  readln(N);
  until N in [1..Nmax];
  randomize;
  writeln('Исходная матрица :');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i,j] := (random(40)-20+random);
      write(a[i,j]:7:2,' ');
      end;
    writeln;
    end;
  writeln;
  M1 := M;
  for z := 1 to M-1 do begin
  min := 1;
  for i := 2 to M1 do
    if a[i,N]<a[min,N] then min := i;
  for j := 1 to N do
    begin
      temp := a[min,j];
      a[min,j] := a[M1,j];
      a[M1,j] := temp;
    end;
  dec(M1);
  end;
  writeln;
  writeln('Матрица после перестановки строк:');
  for i := 1 to M do begin
    for j := 1 to N do
      write(a[i,j]:7:2,' ');
      writeln;
      end;
  readln;
end.