Вывести в порядке убывания элементы массива, находящиеся в диапазоне между А и В (проверить код)

var
  x,y:array [1..100] of integer;
  n,i,j,k,a,b,s:integer;
begin
  writeln;
  writeln('ввести размерность,n');
  readln(n);
  randomize;
 for i:= 1 to n do
  begin
  x[i]:=random(12)+11;
  write(x[i]:3);
  end;
  writeln('ввести отрезок');
  readln(a,b);
  k:=0;
 for i:= 1 to n do
  begin
   if (x[i]>=a) and (x[i]<=b) then
   begin
   k:=k+1;
   y[k]:=x[i];
   end;
   write(y[i]:3);
  end;
 for i:=1 to k do
  for j:=i+1 to k do
   if y[i]>y[j] then
    begin
     s:=y[i];
     y[i]:=y[j];
     y[j]:=s;
    end;
 
 for i:=k downto 1 do
  write(y[i],' ');
 end.

uses crt;
var x:array [1..100] of byte;
    n,i,j,k,a,b:byte;
begin
clrscr;
randomize;
repeat
write('ввести размерность до 100, n=');
readln(n);
until n in [1..100];
writeln('массив:');
for i:= 1 to n do
 begin
  x[i]:=random(12)+11;
  write(x[i]:3);
 end;
writeln;
writeln;
repeat
writeln('ввести отрезок a<b:');
readln(a,b);
until a<b;
writeln('элементы массива из диапазона ',a,' ',b);
k:=0;
for i:=b downto a do
for j:=1 to n do
if i=x[j] then
  begin
   k:=1;
   write(i:3);
  end;
if k=0 then write('таких чисел нет!');
readln
 end.