bài tập về tệp

viết chương trình :
-Tạo 1 tệp chứa n số nguyên n>0
-Điếm và in các số nguyên tố trên tệp.

thank you! All you!

var f:text;
a:array[1..100] of word;
dem,i,j,n,c:byte;
kt:boolean;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i)
readln(a[i]);
end;
assign(f,'E:\tieuquaitu.dat');
rewrite(f);
for i:=1 to n do write(f,a[i],' ');
dem:=0;
for i:=1 to n do
begin
kt:=true;
if a[i]<4 then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end
else
begin
c:=round(sqrt(a[i]));
j:=c;
while (kt=true) and (j>1) do
if a[i] mod j=0 then kt:=false else
j:=j-1;
end;
if kt=true then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end;
end;
writeln('co:',dem,'so nguyen to');
close(f);
readln
end.

day la chuong trinh kiem tra so nguyen to trong day.ban dua theo do ma lam.
co phan tao tep va lay du lieu xem sach giao khoa di.
neu van khong duoc thi bao lai.minh se co gang giup.

hix. lam ho minh phan ve tep di ban.
thak

xong rui day.kiem tra lai di.

sao 1 bai de nhu the nay' ma lam dai vay?

de tui lam cho//////

program BT;
var F:text;
n:longint;
A:array[1..100] of longint;

procedure nhapDL;
var i:longint;
begin
write('nhap so n:=');readln(n);
for i:=1 to n do
write('nhap A[',i,']:=');readln(A[i]);
writeln('mang vua nhap la:');
for i:=1 to n do
write(A[i],' ');
end;
function NT(x:longint):boolean;
var i:longint;
begin
NT:=true;
if x<2 then NT:=false;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then NT:=false;
end;

procedure xuli;
var d,i:longint;
begin
d:=0;
writeln('cac so nguyen to co trong mang la:');
for i:=1 to n do
if NT(A[i]) then
begin
inc(d);
write(A[i,' ');
end;
writeln('so cac so nguyen to la:',d);
end;

BEGIN
nhapDL;
xuli;
END.

co de hieu hon ko?

minh nghi neu ban hoc tin hoc thi nen lam quen voi thuat toan ''quy hoach dong'' di la vua

thuat toan nay de hoc lam'

day minh di.bay gio moi duoc nghe noi den

minh hoc pascal co ban nen khong ranh lam.neu co tai lieu gui cho minh