Liczby pierwsze

Mam napisac program sprawdzajacy czy podana z klawiatury liczba jest liczba pierwsza, a nie wiem jak sie za to zabrac pomorzcie (potrzebna petla while do)

http://www.algorytm.cad.pl/Algorithms/61-70/algorithm67.html

nudziło mi sie:

program Czy_Pier;

uses CRT;

var L:LongInt;
    i:LongInt;
    Jest:Boolean;

begin
  ClrScr;
  Jest:=True;
  Write('Podaj liczbe do sprawdzenia: ');
  ReadLn(L);
  for i:=2 to trunc(sqrt(L)) do If (L mod i)=0 then
  begin
    Jest:=false;
    break;
  end;
  if jest then Write(l,' jest liczba pierwszĄ!;-)')
  else Write(l,' nie jest liczbĄ pierwszĄ, bo dzieli sie przez: ',i);
  ReadLn;
end.

////// Masz racje ŁF już zmieniłem ;)

LukaStrz: nie do round(L/2), tylko trunc(sqrt(L))