cho ma trận n*n in ra các số nguyên tố trong ma trận sắp xếp ma trận theo thứ tự giảm dần tính tổng các gt nhỏ nhất của từng dòng tìm các điểm cực tiểu và vt của chúng

uses crt;
var n,i,j,t,tong:longint; a:array[1..100000000]of longint; d:text;
function nt(a:longint):boolean;
var i:longint;
   begin
      i:=2;
      while (a>1)and(a mod i<>0) do inc(i);
      nt:=i=a;
   end;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n);
      for i:=1 to n do
         begin
            for j:=1 to n do read(d,a[n*(i-1)+j]);
            readln(d);
         end;
   close(d);
   assign(d,'output.pas');rewrite(d);
      writeln(d,'Cac so nguyen to:');
      for i:=1 to n*n do if nt(a[i]) then writeln(d,a[i]);
      writeln(d,'Xap sep theo thu tu tang dan:');
      for i:=1 to n*n do
         for j:=1 to i do
            if a[i]<a[j] then
               begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
      for i:=1 to n*n do writeln(d,a[i]);
      for i:=1 to n*n do if i mod n=1 then inc(tong,a[i]);
      writeln(d,'Tong cua cac gia tri nho nhat tren cac dong: ',tong);
      writeln(d,'Vi tri diem cuc tieu cua mang: 1');
   close(d);
readln
end.