Упорядочить строки матрицы F(10,8) по возрастанию сумм элементов строк

uses crt;
const m=10;
      n=8;
var f:array[1..m,1..n+1] of real;
    i,j,k:byte;
    sm,b:real;
begin
randomize;
{вычисление сумм в строках и запись их в дополнительный столбец}
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
   begin
    f[i,j]:=10*random;
    sm:=sm+f[i,j];
   end;
  f[i,n+1]:=sm;
 end;
writeln('Исходный массив:');
writeln('Сумма':(n*5+8));
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  if j=n+1 then write(f[i,j]:8:1)
  else write(f[i,j]:5:1);
  writeln;
 end;
{перестановка строк по убыванию сумм(по последнему столбцу)}
for i:=1 to m-1 do
for k:=i+1 to m do
if f[i,n+1]>f[k,n+1] then
for j:=1 to n+1 do
 begin
  b:=f[i,j];
  f[i,j]:=f[k,j];
  f[k,j]:=b;
 end;
writeln('Строки по возрастанию сумм:');
writeln('Сумма':(n*5+8));
for i:=1 to m do
 begin
  for j:=1 to n+1 do
  if j=n+1 then write(f[i,j]:8:1)
  else write(f[i,j]:5:1);
  writeln;
 end;
end.