Отсортировать по возрастанию найденные особые элементы

[YashkOff]

1.Определите количество "особых" элементов масиива С(n,m).(Элемент считается особым, если выполняются ниже перечисленные условия: элемент больше суммы остальных элементов своего столбца. в строке слева от элемента находятся элементы, меньшие его, а справа большие).
2. Найденные особые элементы вывести в порядке возрастания.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел. d



procedure Proverka (ri,rj: byte);
var i,j: byte; k: byte; q:byte; z, buf, p:byte;
begin
k:=0;
write('Osobie elementi: '); q:=1;
for i:=1 to ri do
for j:=1 to rj do
if Bolshii(i,j,ri) and LevPrav (i,j,rj) then
begin
k:=k+1;
writeln;
X[q]:=C[i,j]; write(X[q]:4);
q:=q+1;
end; writeln(' Kolichestvo elementov: ',k);
if k=0 then writeln('otsutstvuyut');

z:=q-1;
for q:=1 to z do begin
if X[q+1]<X[q] then
buf:=X[q+1];
X[q+1]:=X[q];
X[q]:=buf; end; write(X[q]:4); end;




1 задание я сделал,а вот с сортировкой не выходит,помогите. Я похоже запутался уже совсем. в процедуре поверки начинается проблема.


Не создавай кросспосты. Модератор