برنامه اعداد اول با پاسکال؟؟؟

سلام
من تازه برنامه نویسی با پاسکال رو شروع کردم .خواستم در مورد نوشتن برنامه ای با پاسکال که اعداد اول بین 1تا 1000 رو مشخص کنه کمکم کنید.
راستی لینک دانلود این برنامه رو هم اگه دارید ممنونم

بفرمایید :
برنامه ای رو که خواسته بودید نوشتم ( لطفا خود برنامه رو دانلود کنید و نظرتون رو بگید )
این لینک خود برنامه تست اعداد اول از 1 تا هر عددی که شما بخواهید ( 5 کیلو بایت ) :

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اینم سورس برنامه :

کد:

---

program ShowPrime;
uses wincrt;
var
  i,j,n:integer;
  flag:boolean;
  ch:char;
label
  10; 
begin

10:write('Please Enter Number Of Information : ');
  readln(n);
  writeln;
  for j:=2 to n do
      begin
        i:=2; flag:=true;
        while i<=(j div 2) do
            begin
              if (j mod i)=0 then
              flag:=false;
              i:=i+1;
            end;
        if flag=true then
        write(j,' ');
      end;
  writeln;
  writeln;
  write('Do You Want To Start A New Test ? (y,n) ');
  readln(ch);
  if ch='y' then
      begin
        clrscr;
        goto 10;
      end;
  if ch='n' then
  writeln;
  writeln('                                GoodBye')

end.

---

اقای کریمی دستت درد نکنه ولی منظورم از لینک لینک دانلود خود برنامه پاسکال هست.