uses crt;
var a,b:array[1..1000000]of longint; n:longint;
//Chuong trinh con
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i); // Neu a (so can kiem tra) >1 va khong chia het cho i thi tang i
   nt:=i=a; //Neu i=a tuc la a chi co uoc la 1 va chinh no thi a la so nguyen to
end;

procedure nhap;
var i:longint;
begin
   write('n = ');readln(n); // Nhap n
   for i:=1 to n do read(a[i]); // Nhap mang a
end;

procedure xs;
var i,j,t:longint; 
begin
   for i:=1 to n-1 do 
      for j:=i+1 to n do 
         if a[i]>a[j] then // Neu phan tu dung truoc lon hon phan tu dung sau
            begin
               t:=a[i]; a[i]:=a[j]; a[j]:=t; // hoan doi vivi 2 phan tu
            end; 
   write('Day duoc sap xep tang dan la: ');
   for i:=1 to n-1 do write(a[i],', '); // Xuat mang
   write(a[n]); writeln;
end;

procedure  taomangb;
var i:longint;
begin
   for i:=1 to n do 
      begin
         b[i]:=a[i]; // Gan b[i]=a[i]
         while not(nt(b[i])) do dec(b[i]); // Neu b[i] khong phai so nguyen to thi giam cho den khi la so nguyen to
      end; 
   write('Day nguyen to lon nhat la: ');
   for i:=1 to n-1 do write(b[i],', '); // Xuat mang
   write(b[n]);
end;
// Chuong trinh chinh
begin
clrscr;
   nhap;     // |
   xs;       // > Goi chuong trinh con
   taomangb; // |
readln;
end.

Nếu có sai thì bạn nói mình nhé.

Mình sẽ chia các phần và giải thích bên dưới.

==============================

program Hello;
uses crt;
var n,i,j,t:longint;
    a:array[1..10000] of longint;

{==========Tìm số nguyên tố===========}
function tnt(j:longint): boolean;
    begin
         if j <= 1 then begin tnt:= FALSE; exit(); end
    else if j <= 3 then begin tnt:= TRUE; exit(); end 
    else if (j mod 2 = 0) or (j mod 3 = 0) then begin tnt:=FALSE; exit(); end;
    t:= 5;
    while t*t <= j do
        begin
            if (j mod t = 0) or (j mod (t + 2) = 0) then begin tnt:=FALSE; exit(); end;
            t := t + 6;
        end;
    tnt:=TRUE;
    exit();
    end;
begin
    clrscr;
    readln(n);
    for i:= 1 to n do
        read(a[i]); 

{===========Sắp xếp===========}  
    for i:= 1 to n do
        for j:=i+1 to n do
            if a[j]<a[i] then
                begin
                    t:=a[i];
                    a[i]:=a[j];
                    a[j]:=t;
                end;

{=========In dãy được sắp xếp===========}
    for i:= 1 to n do write(a[i], ' ');
    writeln();

{=========In dãy B===========}
  for i:= 1 to n do
        begin
            for j:= a[i] downto 1 do
                if tnt(j)=TRUE then
                    begin
                        write(j,' ');
                        t:=1;
                        break;
                    end;
            if t<>1 then
                write('  ');
        end;
    readln;   
end.

=============================

Tìm số nguyên tố

Thuật toán đó sẽ giúp bạn loại trừ đi các số chẵn, và bội của 3. Nó áp dụng được cho các số không quá lớn(hình ảnh).

Đầu tiên là loại đi các số nhỏ hơn hoặc bằng 1 vì nó không phải số nguyên tố.

Do thuật toán chỉ đúng với các số lớn hơn 3 nên ta phải làm một trường hợp cho các số lớn hơn 1 và nhỏ hơn 4. 

Tiếp theo là loại bỏ số chẵn và bội của 3, nó sẽ đỡ phải làm vòng lặp hơn.

Các số nhỏ hơn 25 nhưng không là bội của 3 và là số chẵn (trừ 2) thì đều là số nguyên tố nên vòng lặp bắt đầu từ 25.

Sắp xếp

Dùng hai vòng lặp for để so sánh một số với tất cả các số còn lại.

Nếu số đó lớn hơn thì đổi vị trí với số nhỏ hơn, bằng một biến trung gian.

In dãy sắp xếp

Sắp xếp xong thì in ra thôi. 

In dãy B

Dùng hai vòng lặp for.

Vòng ngoài từ 1 tới n.

Vòng trong từ a[i] xuống 1. Tìm số nguyên tố phía trước nên phải cho nó chạy ngược, vì nó lớn nhất thì gần a[i] nhất.

Nếu tnt là TRUE thì in ra số đó và dừng vòng lặp trong.