Простые числа. Задача.

[U_r0ck]

Здравствуйте Уважаемые,
Прошу о помощи, так как уже не знаю куда обратиться. В колледже задали следующую задачку: "Выписать все простые числа, находящиеся в интервале между 100 и 999. Простым называется число, которое делится только на единицу и на само себя". Мучаюсь уже не первый день...

Насколько я понимаю задачу... Мне нужно написать цикл, который бы помещал в переменную число 100, делал проверку, делится ли оно на само себя или один, и выводило результат на экран в форму с припиской каким число является. Затем цикл повторялся, но в переменную уже помещалось число не 100, а 101, 102, 103, 104... и так далее. Поправьте, если я не прав.

Накидал вот что... Понимаю, что код не идеален, и неработоспособен. Хотелось бы услышать, в правильном ли ключе я иду? А также увидеть вариант(ы) решения данной задачи с объяснением. Заранее благодарен на скорейший ответ.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n,r,d : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
for n:=100 to 999 do
    d:=2;
    repeat
    r := n mod d;
    if r <> 0
    then StaticText1.Caption:='Число' +IntToStr(n) 'простым не является'
    else StaticText2.Caption:='Число является простым'
    until n>999;
    end;
end.

[Stilet]

Загляни ка сюда:http://www.programmersforum.ru/showthread.php?t=30673
а заодно в конец страницы где есть похожие темы.

[Serge_Bliznykov]

мне нравится такая функция проверки числа на простоту.
я её везде, где предоставляется возможность - привожу:

function isPrime(X: word): boolean;
var i: word;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;