Сортировка и перестановка элементов в двумерных массивах

[nikshiyan]

Здравствуйте, помогите пожалуйста с задачей. Заранее спасибо.


Пусть для целого n>1 функция f(n) равна наименьшему
делителю числа n, большему 1. Дан массив a: array [1..n] of 1..
maxint. Упорядочить элементы массива а по возрастанию в
соответствии со следующим критерием: элемент x считается
"большим" элемента y, если f(x) > f(y)

[D@rkD@iver]

for i:= 1 to n-1 do
for j:= 1 to n-i do
if f(a[j)>f(a[j+1]) then
begin
t:= a[j];
a[j]:= a[j+1];
a[j+1]:= t;
end;

[Grag]

D@rkD@iver,

repeat
   changed:=false;
   for i:=1 to n-1 do
     if a[i]>a[i+1] then
       begin
         buf:=a[i];
         a[i]:=a[i+1]; 
         a[i+1]:=buf;
         changed:=true
      end;
until not changed;

[nikshiyan]

Спасибо за код)