Двумерные массивы. Матрицы! - Pascal

Формулировка задачи:

1. Дана вещественная матрица D размером 7х9( можно изменить). Упорядочить строки матрицы по возрастанию, используя метод попарно – обменной сортировки.

Program sdf;
const N=3;
      M=3;
      type Matr = array [1..N,1..M] of real;
var
x:Matr;
i,j,k:byte;
y:real;
begin
for i:=1 to N do  for j:=1 to M do read (x[i,j]);
for j:=1 to M do
begin
for k:=N downto  j+1 do
if x[i,k] < x[i,k-1] then
begin
y:=x[i,k];
x[i,k]:=x[i,k-1];
x[i,k-1]:=y end;
 
for i:=1 to N do
begin  for j:=1 to M do write(x[i,j],' '); writeln  end;
end;end.

выводит теже значения что и ввожу

Решение задачи: «Двумерные массивы. Матрицы!»

Листинг программы

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k,b:integer; 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(21);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to n do
 begin
  for k:=1 to m do
  for j:=1 to m-1 do
  if a[i,j]>a[i,j+1] then
  begin
   b:=a[i,j];
   a[i,j]:=a[i,j+1];
   a[i,j+1]:+b;
  end;
 end;
 
 writeln('Отсортированный массив');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.

Объяснение кода листинга программы

Объявлены константы n=5 и m=4, а также переменные a, i, j, k, b типа integer.
Запускается процедура randomize для инициализации генератора случайных чисел.
Выводится сообщение Исходный массив и двойным циклом заполняется двумерный массив a случайными значениями от 0 до 20. Каждое значение массива выводится на экран.
Запускается первый вложенный цикл (для k) для сортировки массива a по возрастанию в каждой строке. Для этого сравниваются соседние элементы массива и, если текущий элемент больше следующего, происходит обмен их значений.
Выводится сообщение Отсортированный массив и двойным циклом выводятся значения отсортированного массива a на экран.
Запускается функция readln для ожидания нажатия клавиши и завершения работы программы.