关于第一个问题的解答
procedure TForm1.Button1Click(Sender: TObject);
var
m,i,r,j: integer;
prinumber: string;
begin
prinumber:='1';
m:= StrToInt(edit1.Text);
for j:=3 to m-1 do
begin
for i:=2 to j-1 do
begin
r:=j mod i;
if r=0 then break;
if i=j-1 then prinumber:=prinumber+' '+IntToStr(j);
end;
end;
edit2.Text:=prinumber;
end;