cho một dãy số nguyên, mỗi số trên một dòng được ghi trong tệp 'NGUYEN.TXT'. Viết chương trình tạo tệp 'NGUYENTO.TXT' chứa các số nguyên tố có trong tệp 'NGUYEN.TXT', mỗi số cách nhau một dấu cách giúp em với ạ

uses crt;
var f:text; n,i:longint; a:Array[1..1000000]of longint;
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(f,'NGUYEN.TXT');reset(f);
      readln(f,n);
      for i:=1 to n do readln(f,a[i]);
   close(f);
   assign(f,'NGUYENTO.TXT');rewrite(f);
      for i:=1 to n do
         if nt(a[i]) then write(f,a[i],' ');
   close(f);
end.

program bai_giai;
var f,g:text;
    n:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
    ktnt:=false;
    if k<2 then exit;
    for r:=2 to trunc(sqrt(k)) do
        if k mod r=0 then exit;
    ktnt:=true;
end;
BEGIN
    Assign(f,'NGUYEN.TXT');  reset(f);
    Assign(g,'NGUYENTO.TXT');  rewrite(g);
    while not eof(f) do
        begin
            readln(f,n);
            if ktnt(n) then writeln(g,n);
        end;
    close(f); close(g);
end.