Если в последовательности есть простое число, упорядочить ее по неубыванию

{Вариант 21.
Дана последовательность натуральных чисел aAjj=1...n (n<=10000). 
Если в последовательности есть хотя бы одно простое число, 
упорядочить последовательность по невозрастаниюю.}
  program main;
  var
    n,i,j,temp:Integer;
    flag:Boolean;
    a:array[1..10000] of Integer;
  function IsPrime(a:Integer):Boolean;
  var
    i,k:Integer;
    prime:Boolean;
  begin
    if a=2 then IsPrime:=true; exit;
    if (a=0) or (a=1) or ((a mod 2)=0) then IsPrime:=false; exit;
    if odd(a) then 
      begin
        prime:=true;
        k:=trunc(sqrt(a));
        i:=2;
        while (i<=k) and prime do
          begin
            if (a mod i)=0 then prime:=false;
            i:=i+1;
          end;
        isPrime:=prime;
      end
    else isPrime:=false;
  end;
  
  begin
    flag:=false;
    writeln('Enter n: ');
    read(n);
    writeln('Enter ', n, ' elements:');
    for i:=1 to n do
      begin
        read(a[i]);
        if(not flag) then
          flag:=isPrime(a[i]);
      end;
    if flag then
      begin
        for i:=1 to n-1 do
          for j:=i+1 to n do
            if a[i]<a[j] then
              begin
                temp:=a[i];
                a[i]:=a[j];
                a[j]:=temp;
              end;
      end;
    for i:=1 to n do
      write(a[i]:4);
    read(n);
  end.

function IsPrime(a: integer):boolean;
var i,j: integer;
    b: boolean;
begin
 if (a<=1) then
  isprime:=false;
 b:=true;
 for j:=2 to a div 2 do
  if a mod j =0 then
   b:=false;
 if (b) then
  isprime:=true;
end;