Как отсортировать простые элементы массива по возрастанию и вывести наибольший простой ?

program p1;
 
uses crt;
 
type
  massive = array of integer;
 
var
  n: byte;
  i: byte;
  a: massive;
 
begin
  clrscr;
  write('Введите размер массива:   '); read(n);
  write('Массив: '); 
  setlength(a, n);
  randomize;
  for i := low(a) to high(a) do        
  begin
    a[i] := random(n);        
    write(a[i]:4);
  end;
end.

for i:=Low(a) to High(a)-1 do if IsPrime(a[i]) then 
  for j:=i+1 to High(a) do if IsPrime(a[j]) then begin
    if a[i]>a[j] then begin
      t:=a[i]; a[i]:=a[j]; a[j]:=t;
    end;
    mx:=a[j];
  end;

for i:=Low(a) to High(a) do b[i]:=IsPrime(a[i]);
for i:=Low(a) to High(a)-1 do if b[i] then 
  for j:=i+1 to High(a) do if b[j] then begin
    if a[i]>a[j] then begin
      t:=a[i]; a[i]:=a[j]; a[j]:=t;
    end;
    mx:=a[j];
  end;

i:=High(a); while (i>=Low(a)) and not b[i] do Dec(i);
if i>=Low(a) then mx:=a[i] else {нет простых};

var A:array of integer;
  i, n : integer;
begin
   WriteLn('Введите размер массива: ');
   ReadLn(n);
   
   {выделим память под динамический массив A}
    SetLength(A, n);
   
   {заполним массив A числами в обратном порядке}
    for i:=0 to n-1 do A[i] := n-i;
 
   {Выдадим массив на экран}
    Write('Массив: ');
    for i:=0 to n-1 do Write(A[i],' ');
 
   {очистим память, выделенную под массив}
   SetLength(A,0);
 
   ReadLn; {подождём нажатия Enter - чтобы экран сразу не закрылся}
 
end.