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

[Dema91]

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

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

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.

Прога еще не доделана.

[sllh_111]

q:=x[i,k];
x[i,k]:=x[i,k+1];
x[i,k+1]:=q;

q - интеджер, попробуй присвоить q:= massiv

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;

попробуй паред
write(x[i,j]:5);
записать еще
for i:=1 to a do
begin
writeln;
for j:=1 to b do