Элементы массива Опции

[vadim(b)]

Эту задачу я уже как то у вас спрашивал "Расположить столбцы матрицы D[M, N] в порядке возрастания элементов k-и строки (1 ≤ k≤ M)." И я её ПРАКтически сделал. Я сделал чтобы по возрастанию отсартировавылись СТОЛбцы матрицы и всё остальное нормально рабоает. Но по маему заданию надо чтобы отсартировывалась строка. Найдите у меня ошибку в коде плиз. т.е у меня отсартировывается к-тый стобец заместо к-той строчки.
(какой же я глупый)

var
a:array[1..100,1..100] of integer;
min,g,k,n,m,i,j:integer;
begin
randomize;
writeln('Vvedite stroku');
readln(k);
writeln('Vvedite razmernost');
readln(n);
readln(m);
writeln('Ishodnyi massiv ');
for i:=1 to n do   begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for g:=1 to 90 do  begin
for i:=1 to n-1 do
if a[i,k]>a[i+1,k] then
begin
for j:=1 to m do
begin
min:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=min;
end;
end;
end;
writeln('Peredelanyi');
for i:=1 to n do begin
for j:=1 to m do
begin
write(a[i,j]:4);
end;
 writeln;
 end;
  readln;

end.