Помогите пожалуйста решить маленькую задачку

[Mihael-Vlz]

Матрицы:
В матрице B(8x8) найти строку с наибольшей суммой её элементов и переписать упорядоченные по возрастанию элементы этой строки в массив x.

Заранее благодарен.

[Sazary]

uses crt;
const n = 8;
var
B : array[1..n,1..n] of integer;
x : array[1..n] of integer;
i,j,k,sum,max,maxi : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    B[i,j] := random(20);
    write(B[i,j]:4);
    end;
  writeln;
  end;
writeln('---------');
{----------}
maxi := 1;
max := -1000;
for i:=1 to n do
  begin
  sum:=0;
  for j:=1 to n do
    sum := sum + B[i,j];
  if sum > max then
    begin
    max := sum;
    maxi := i;
    end;
  end;
{-----}
for i:=1 to n do
  x[i] := B[maxi,i];
for i:=1 to n-1 do
  begin
  k := i;
  for j:=i+1 to n do
    if x[k]>x[j] then k := j;
  max := x[i];
  x[i] := x[k];
  x[k] := max;
  end;
{-------------}
writeln('Massiv x (stroka ',maxi,'): ');
for i:=1 to n do
  write(x[i]:4);

readln;
end.