Упорядочить последовательность по убыванию элементов и выдать на экран все элементы, большие некоторого заданного числа. И вот как раз это некоторое заданное число я взяла "с=2000". Не могу написать часть программы, которая бы ...

Упорядочить последовательность по убыванию элементов и выдать на экран все элементы, большие некоторого заданного числа. И вот как раз это некоторое заданное число я взяла "с=2000". Не могу написать часть программы, которая бы как раз и обозначала вывод на экран последовательность чисел, которые были бы больше заданного числа.. :( Program mas1; uses crt; Var a: array [1..30] of real; i,n,P,k,c: integer; d: real; Begin repeat Write(' Введите 0 Readln(n); if (n<0) or (n>30) then writeln(' n неправильно введено'); until (n>=1) and (n<=30); P:=2; For k:=1 to n do Begin P:=P*(k+2); a[k]:=P*cos(k); end; writeln(' Получен массив А'); for i:=1 to n do writeln('A[',i:2,']=',A[i]:15:3); writeln; For i:=1 to n do for k:=1 to n-i do if a[k] begin d:=a[k]; a[k]:=a[k+1]; a[k+1]:=d end; writeln; writeln(' Массив по убыванию'); for i:=1 to n-1 do writeln('A[',i:2,']=',A[i]:15:3); writeln; c:=2000; ? end.