Помогите плз с сортировкой матрицы, с сортировкой в заданом диапазоне индексов Опции

[-Dimon-]

Помогите пожалуйста отсортировать матрицу в заданом диапазоне индексов.

[мисс_граффити]

volvo, эт я виновата. Попросила дословно
Dimon-fx

Program Bubble;
uses crt;
const n=10;
var ar: array[1..n] of integer;
i, j, T, nachalo, konec: Integer;
Begin
clrscr;
randomize;
for i:=1 to n do
  begin
  ar[i]:=random(10);
  write(ar[i],' ');
  end;
writeln;
writeln('vvedite granicy');
readln(nachalo);
readln(konec);
For i := nachalo To konec Do
  For j := konec DownTo i+1 Do
    If ar[Pred(j)] < ar[j] Then
      Begin
      T := ar[Pred(j)];
      ar[Pred(j)] := ar[j];
      ar[j] := T
      End;
for i:=1 to n do
  write(ar[i],' ');
End.

Допиши сам проверку, чтобы nachalo<konec
nachalo,konec<n
nachalo,konec>1