Упорядочены ли элементы по возрастанию в строке двумерного массива - Pascal

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

Помогите решить задачу: Дан массив целых чисел n x m. Для каждой строки массива определить,упорядочены ли ее элементы по возрастанию.

Решение задачи: «Упорядочены ли элементы по возрастанию в строке двумерного массива»

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

var a:array[1..20,1..20] of integer;
    m,n,i,j,k:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 20');
readln(m,n);
until(m in [2..20])and(n in [2..20]);
writeln('Введите элементы массива построчн, в том числе упорядоченныепо возрастанию');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введенный массив');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
 writeln('Упорядочены ли строки по возрастанию?');
 for i:=1 to m do
  begin
   j:=1;
   k:=0;
   while(j<n)and(k=0) do
   if a[i,j]>a[i,j+1] then k:=1
   else j:=j+1;
   write('Строка ',i);
   if k=0 then writeln(' упорядочена')
   else writeln(' не упорядочена');
  end;
end.

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

Объявление переменных:
- a - двумерный массив целых чисел размером от 1 до 20 в обеих измерениях
- m, n, i, j, k - целочисленные переменные
Запрос ввода значений для m и n и проверка их корректности:
- Пользователю выводится запрос Введите размеры массива от 2 до 20
- Затем пользователю предлагается ввести значения для m и n
- Цикл Repeat-Until проверяет, что m и n находятся в пределах от 2 до 20
Ввод элементов двумерного массива:
- Пользователю выводится запрос Введите элементы массива построчно, в том числе упорядоченные по возрастанию
- Вложенные циклы for используются для ввода значений каждого элемента a[i, j] массива.
Вывод введенного массива:
- Пользователю выводится сообщение Введенный массив
- Используется цикл for для построчного вывода элементов массива a
Проверка упорядоченности строк по возрастанию:
- Для каждой строки выполняется проверка на упорядоченность по возрастанию
- Внешний цикл for перебирает каждую строку массива a
- Затем вложенный цикл while и переменные j и k используются для проверки упорядоченности элементов в строке
- Для каждой строки выводится сообщение Строка i с информацией об упорядоченности.
Конец программы - end. Код выполняет ввод двумерного массива, выводит его на экран, а затем проверяет упорядоченность каждой строки по возрастанию.