Не могу понять где ошибка при сортировке строк!?

[Dema91]

Само задание выглядит так: Дана вещественная матрица размером 7×4. Переставляя ее строки и столбцы добиться того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу.

Прогу нужно написать с помощью подпрограм, без них все хорошо получилось, а вот когда написал процедуру сортировки столбцов, возникла проблема...

uses crt;
type massiv=array [1..100,1..100] of integer;
var
     mass:massiv;
     n,m:integer;
     
procedure vvod_mass (var x:massiv; a,b:integer);
var  i,j:integer;
begin
     for i:=1 to a do
       begin
        writeln;
         for j:=1 to b do
             begin
                  x[i,j]:=random(100)-30;
                  write(x[i,j]:5);
             end;
       end;
     writeln;
end;

procedure sort_strok (x:massiv; a,b:integer);
var i,j,k,q:integer;
begin
     for i:=1 to a do
       {  for j:=1 to (b-1) do}
             for k:=1 to (b-1) do
                 if x[i,k]<x[i,k+1] then
                    begin
                         q:=x[i,k];
                         x[i,k]:=x[i,k+1];
                         x[i,k+1]:=q;
                    end;
end;

procedure vyvod_mass (var x:massiv; a,b:integer);
var  i,j:integer;
begin
     for i:=1 to n do
       begin
        writeln;
         for j:=1 to m do
             begin
                 write(x[a,b]:5);
             end;
       end;
     writeln;
end;

begin
     writeln ('Введите размеры матрицы');
     write('n=');
     readln(n);
     write('m=');
     readln(m);
     writeln;
     writeln ('Данная матрица:');
     vvod_mass(mass,n,m);
     sort_strok(mass,n,m);
     vyvod_mass(mass,n,m);
end.

Прога еще не дописана...

[IT-man]

найдено тут же и чуть подправлено под ваши реалии

//by Филантроп
{поменять местами столбцы 1 и последний }
for i:=1 to n do {n-количество строк}
begin {mat - исходная матрица}
tmp:=mat[i,1];{tmp - переменная того же типа что и элемент матрицы}
mat[i,1]:=mat[i,m];{m-номер столбца с которым меняем}
mat[i,m]:=tmp;
end;

{поменять местами строки 1 и последнюю}
for i:=1 to m do {m-количество столбцов}
begin {mat - исходная матрица}
tmp:=mat[1,i];{tmp - переменная того же типа что и элемент матрицы}
mat[1,i]:=mat[n,i];{n-номер строки с которой меняем }
mat[n,i]:=tmp;
end;

только для начала найдите индексы Максимального элемента матрицы

[Dema91]

А зачем индексы максимального элемента? их будем подставлять в место n и m? т.е. вот эти {n-номер строки с которой меняем } и {m-номер столбца с которым меняем}

[Филантроп]

Именно для этого они и нужны

[Dema91]

И тута еще ошибку исправил:

Сообщение от Dema91

procedure vyvod_mass (var x:massiv; a,b:integer);
var  i,j:integer;
begin
     for i:=1 to n do
       begin
        writeln;
         for j:=1 to m do
             begin
                 write(x[a,b]:5);
             end;
       end;
     writeln;
end;

write(x[a,b]:5) надо заменить на write(x[i,j]:5); сразу чет не заметил...

[Dema91]

Сообщение от Филантроп

Именно для этого они и нужны

Спасибо, щас попробую...

[Dema91]

Неа, не катит... можете мою программу исправить?? Нужно чтобы все элементы в каждой строке были отсортированы по убыванию...