Переставить в обратном порядке элементы массива - Pascal (247757)

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

Дан массив A размера N и целые числа K и L (1 < K < L <N). Переставить в обратном порядке элементы массива, расположенные между элементами AK и AL, включая эти элементы.

Решение задачи: «Переставить в обратном порядке элементы массива»

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

var a:array[1..100] of integer;
    n,k,l,i,x:integer;
begin
randomize;
repeat
write('Введите размер массива от 4 до 100 n=');
readln(n);
until n in [4..100];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10+random(90);
  write(a[i]:4);
 end;
writeln;
repeat
writeln('Введите номера элементов между которыми перестановка 1<k<l<n');
readln(k,l);
until(k>1)and(l>k)and(l<n);
for i:=1 to (l-k+1)div 2 do
 begin
  x:=a[k+i-1];
  a[k+i-1]:=a[l-i+1];
  a[l-i+1]:=x;
 end;
writeln('Перестановка');
for i:=1 to n do
write(a[i]:4);
end.

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

В этом коде программа запрашивает у пользователя размер массива от 4 до 100 и выводит исходный массив. Затем программа запрашивает у пользователя номера элементов между которыми нужно выполнить перестановку и выполняет перестановку. В конце программа выводит переставленный массив.