const m=5; n=4;
var 
a:array[1..m,1..n] of real;
i,j,k:integer; c:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=10*random;
  write(a[i,j]:5:1);
  end;
  writeln;
 end;

 for k := 1 to m-1 do
    for i := 1 to m-k do
       if a[i,1] > a[i+1,1] then 
         for j:=1 to n do
          begin
          c:=a[i,j]; a[i,j]:=a[i+1,j]; a[i+1,j]:=c;
          end;

writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do write(a[i,j]:5:1);
 writeln;
 end;
end.

Пример:
Исходный массив:
  9.7  5.1  0.4  1.5
  5.7  7.4  8.9  4.4
  1.8  2.4  6.7  1.6
  5.6  0.6  1.6  2.2
  3.4  0.7  0.3  1.2
Полученный массив:
  1.8  2.4  6.7  1.6
  3.4  0.7  0.3  1.2
  5.6  0.6  1.6  2.2
  5.7  7.4  8.9  4.4
  9.7  5.1  0.4  1.5