Упорядочить строки двумерного массива элементов типа Char по возрастанию их ординальных номеров методом прямого включения.

[Alesia_Lesia]

Нужно объяснить зачем тут нужны циклы repeat и каковы действия данной программы построчно,какие действия происходят в той или иной строке)

const nmax=20;
var a:array[1..nmax,1..nmax] of char;
    m,n,i,j,k:byte;
    x:char;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=chr(65+random(26));
    write(a[i,j]:2);
   end;
  writeln;
 end;
write('Нажмите Enter');
readln;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]>a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x
 end;
writeln('Сортировка строк:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln
 end;
readln
end.

[SaLoKiN]

const nmax=20; {константа nmax=20}
var a:array[1..nmax,1..nmax] of char;
    m,n,i,j,k:byte;
    x:char;
begin
clrscr;{очистка экрана}
randomize;{процедура для включения ГСЧ}

repeat {повторять}
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];{пока m не попадет в интервал от 1 до nmax}
{штука для того что бы вводились корректные данные. программа не пойдет дальше пока введеное число не будет соответствовать требованиям}

{ниже аналогично}
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];

[Alesia_Lesia]

это вы к чему скопировали?)

[SaLoKiN]

это вы к чему скопировали?)

внимательнее смотрим на пост,а именно на {...}

[Alesia_Lesia]

ой да,извините, всё правильно. А как можно объяснить дальнейший действия?т.е. почему именно такие действия мы выполняем?

write('Нажмите Enter');
readln;
for i:=1 to m do
for j:=1 to n-1 do   (зачем вычитаем 1 из n )
for k:=j+1 to n do   (зачем прибавляем 1 к j)
if a[i,j]>a[i,k] then  (для чего это сравнение) и т.д. т.е. как происходит сама сортировка?

 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x
 end;
writeln('Сортировка строк:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:2);
  writeln
 end;
readln
end.

________
Alesia_Lesia, Вы постоянно забываете форматировать исходный код!!
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.