Здравствуйте, tanya.hryanina!
Вот код:
[code lang=pascal h=300]uses crt;
type
matrix = array[1..100, 1..100] of real;//вещественный тип

var
a: matrix;
i, j, m, n, max: byte;

procedure SwapRow(m, n, k1, k2: byte; var a: matrix);// сома процедура
var
j: byte;
sub: real;
begin
for j := 1 to n do
begin
sub := a[k1, j];
a[k1, j] := a[k2, j];
a[k2, j] := sub;
end;
end;

procedure ToPrint(m, n: byte; a: matrix);
var
i, j: byte;
begin
for i := 1 to m do
begin
for j := 1 to n do write(a[i, j]:6:1);
writeln;
end;
writeln;
end;

begin
clrscr;
write('M: ');
readln(m);
write('N: ');
readln(n);
for i := 1 to m do
for j := 1 to n do
a[i, j] := random(101) - 50.0 + random(10) div 10;
ToPrint(m, n, a);
for i := m downto 2 do
begin
max := 1;
for j := 2 to i do
if a[j, 1] > a[max, 1] then max := j;
SwapRow(m, n, max, i, a);
end;
ToPrint(m, n, a);
readkey
end.[/code]

Ну, как - то так...