var m,a:array [-100..100] of integer;
n,j,i,k,count:integer;
begin
write('введите сколько необходимо чисел: ');
read(n);
write('число к: ');
read(k);
//осуществим ввод n элементов и отсортируем по условию в другой массив а
for i:=1 to n do begin
read(m[i]);
if m[i]>k then begin
inc(count);
a[count]:=m[i];
end;
end;
//отсортируем этот массив пузырьковым методом
for i:=1 to count-1 do begin
for j:=1 to count-i do
if a[j] < a[j+1] then
swap(a[j],a[j+1]);
end;
//выводим уже отсортированный массив чисел > к
for i:=1 to count do
write(a[i],' ');
end.
