help !! Sửa bài giùm em với các sư huynh !!,em cố làm rùi nhưng vẫn không chạy!!!

[strainvh]

uses crt;
type
day=array[1..50] of integer;
var A:day;n,i:integer;
procedure nhap(var A:day;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']= ');readln(A[i]);
end;
end;
function kiemtra(A:day;n:integer):boolean;
var nto:boolean;i:integer; moc:real;
begin
i:=2;
moc:=sqrt(n);
while (i<moc) and (n mod i <>0 ) do
i:=i+1;
nto:= (i>moc) and (n>=2) ;
kiemtra:=nto;
end;
procedure xuat(A:day;n:integer);
var i:integer;
begin
for i:=2 to n do
begin
if kiemtra(A[i]) then
write(A[i]:4);
end;
end;
BEGIN
clrscr;
write('nhap n: ');readln(n);
nhap(A,n);
xuat(A,n);
readln;
END.

[Dustin Đỗ]

bạn phải nói rõ bài này giải quyết vấn đề j chứ..!!

[auauau97]

uses crt;
type
day=array[1..50] of integer;
var A:day;n,i:integer;
procedure nhap(var A:day;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']= ');readln(A[i]);
end;
end;
function kiemtra(A:day;n:integer):boolean;
var nto:boolean;i:integer; moc:real;
begin
i:=2;
moc:=sqrt(n);
while (i<moc) and (n mod i <>0 ) do
i:=i+1;
nto:= (i>moc) and (n>=2) ;
kiemtra:=nto;
end;
procedure xuat(A:day;n:integer);
var i:integer;
begin
for i:=2 to n do
begin
if kiemtra(A[i]) then
write(A[i]:4);
end;
end;
BEGIN
clrscr;
write('nhap n: ');readln(n);
nhap(A,n);
xuat(A,n);
readln;
END.

Bài của bạn bị sai cú pháp rùi.
Ở hàm kiểm tra số nguyê tố của bạn:
function kiemtra(A:day;n:integer):boolean;
thì phải là :
function kiemtra(a:integer):boolean;
thôi để đỡ sai về cú pháp khi bạn thực hiện câu lệnh:
for i:=2 to n do
begin
if kiemtra(A[i]){ở đây có mỗi a[i] thôi mà} then...