đây nha, chúc bạn học tốt!

cho mình xin ctrlhn nha, mình cảm ơn

uses crt;
var n: array [1..100] of integer;
    i,s,a,j,tg,t:integer;
begin
 clrscr;
 write('nhap do dai day so (phan tu): ');readln(a);
 for i:=1 to a do
  begin
   write('nhap so thu ',i,': ');readln(n[i]);
  end; 
 for i:=1 to a-1 do
  for j:=i+1 to a do
   if n[i]>n[j] then
    begin
     tg:=n[i];
     n[i]:=n[j];
     n[j]:=tg;
    end;
 write('day duoc sap xep theo thu tu tang dan la: ');
 for i:=1 to a do write(n[i]:4);
 readln;
 write('cac so nguyen to vua nhap trong day la: ');
 for i:=1 to a do
  begin
   t:=2;
   while (n[i] mod t <> 0) do t:=t+1;
   if t=n[i] then 
    begin
     write(n[i]:4);
     s:=s+1;
    end;
  end;
 readln;
 write('so cac so nguyen to co trong day la: ',s);
 readln;
end.