Упорядочивание матрицы, метод сортировки: простой выбор Опции

[Crash_Devil]

Задание: Дана матрица. Упорядочить элементы строк матрицы по неубыванию,
а сами строки по убыванию максимальных элементов строк.
Использовать сортировку простым выбором, реализовав метод в виде подпрограммы.
не пашет рандом(выдает нули), и сортировка...
Вот исходник:

Program z3;
const
n=4;{strok}
m=5{stolbcov};
type
tvector=array[1..m] of real;
tmatrix=array[1..n] of tvector;

  procedure smena_strok(var matrica:tmatrix; const i,j:integer);
  var T:tvector;
  begin
    T:=matrica[i];
    matrica[i]:=matrica[j];
    matrica[j]:=T;
  end;
  procedure vvod(matrica:tmatrix);
            var i,j:integer;
            begin
            randomize;
            for i:=1 to n do
            for j:=1 to m do
            matrica[i][j]:=random(100)-50;
  end;
  
  procedure vivod(matrica:tmatrix);
            var i,j:integer;
            begin
            for i:=1 to n do
            begin
            for j:=1 to m do
            write(' ',matrica[i][j]);
            writeln;
      end;
  end;
  procedure sort1(matrica:tmatrix);
  var k,i,j,maxE:integer;
      max:real;
     begin
         for i:=1 to n do begin
         for j:=m downto 2 do
         begin
         max:=matrica[1][n];maxE:=1;
         for k:=1 to j do
         if matrica[k][n]<=max then begin max:=matrica[k][n]; maxE:=k;end;
         matrica[maxE][n]:=matrica[j][n];matrica[j][n]:=max;
         end;
         end;
  
     end;

  var
matrica:tmatrix;
i,j:integer;
begin
vvod(matrica);
writeln('Ishodnaya');
vivod(matrica);
sort1(matrica);
writeln('Poluchennaya');
vivod(matrica);
end.

[volvo]

не пашет рандом(выдает нули)

Еще бы... Передай матрицу как Var-параметр - заработает...