Решите пожайлуста срочно в паскале

1.задан массив x[1..20], элементы которого выбираются случайным образом из отрезка [-30;80]. Отсортировать все элементы с 5-го по 15-й по возрастанию
2.задан массив B[1..10], элементы которого вводятся с клавиатуры. Отсортировать все элементы с m-го по k-ый по убыванию. Числа m и k целые, вводятся с клавиатуры. например при m=3 и k=8 сортируются элементы только 3-го по 8-ой

1program ss;var   x:array[1..20] of integer;   i,j,z:integer;begin   randomize;   for i:=1 to 20 do      x[i]:=random(111)-30;   for i:=6 to 15 do      for j:=15 downto i do         if(x[j-1]>x[j]) then begin            z:=x[j-1];            x[j-1]:=x[j];            x[j]:=z;         end;   for i:=1 to 20 do      write(x[i],' ');end.2program ss;var   b:array[1..10] of integer;   m,k,i,j,z:integer;begin   readln(m,k);   for i:=1 to 10 do     read(b[i]);   for i:=m+1 to k do      for j:=k downto i do         if(b[j-1]<b[j]) then begin            z:=b[j-1];            b[j-1]:=b[j];            b[j]:=z;         end;   for i:=1 to 10 do     write(b[i],' ');end.