求100以内的素数pascal语言

Program ex;
Var
i: Byte;
Function f(x: Byte): Boolean;
Var
m, i: Byte;
Begin
m := Trunc(sqrt(x));
f := True;
For i:=2 To m Do
If x mod i = 0 Then Begin
f := false; Exit;
End;
End;
Begin
For i:=2 To 100 Do If f(i) Then Write(i, ' ');
End.

program CamelKing
var
i:integer;
function qshushu(x:longint):boolean
begin
j:integer;
if (x<2) begin
qshushu=false;
exit;
end;
else if (x==2) begin
qshushu=true;
exit;
end;
for j:=2 to j<=trunc(sqrt(x)) do
if (x mod j=0) begin
qshushu=false;
exit;
end;
qshushu=true;
end;

begin
for i:=1 to n do
if (qshushu(i)==true) write(i,' ');
end.