Помогите, пожалуйста!!

Массив с 10 трёхзначными числами. Упорядочить их по первой цифре в порядке убывания..
Здесь чтото пыталась делать, но как вижу это не совсем то..

В процедуре booble меняешь строку
if mas[pred(j)]>mas[j] then
на
if mas[pred(j)] div 100 >mas[j] div 100 then

массив X и его заполнение выкидываешь , вместо этого bubble(mas,n);

Спасибо! Сейчас попробую

работает!!!!