Программа определения упорядоченности

[dreammastero]

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

uses crt;
const k = 20; 
var i, n, m: integer;
    a: array [0..k-1] of integer;
begin
  clrscr;
  writeln('Введите элементы массива:');
  for i := 0 to k - 1 do
    begin
      write('a[', i:2, '] = ');
      readln(a[i])
    end;
  writeln('Массив:');
  for i := 0 to k - 1 do write(a[i], ' ');
  writeln;
  repeat
    write('Начало фрагмента? ');
    readln(n);
    write('Конец фрагмента? ');
    readln(m);
    if (n < 0) or (n >= k) then
    writeln('Начало фрагмента вне диапазона 0..', k-1);
    if (m < 0) or (m >= k) then
    writeln('Конец фрагмента вне диапазона 0..', k-1);
    if n >= m then
    writeln('Начало фрагмента должно быть меньше конца фрагмента')
  until (n >= 0) and (n < k) and (m >= 0) and (m < k) and (n < m);
  write('Фрагмент ');
  for i:=n to m-1 do
  if a[i]>=a[i+1]
    then begin
      write('нe ');
      break
    end;
  writeln('упорядочен по возрастанию.');
  readln;
end.

[Stilet]

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