Проверка на простые числа

[Lemo]

Задан диапазон целых чисел (пользователь вводит с клавы n1 и n2)
и нужно проверить являеться ли число простым(делиться само только на себя и на 1 )...
Мой код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
  n1,n2:byte;
  i,j:integer;
begin
write('n1= ');

readln(n1);

write('n2= ');
readln(n2);


for I := n1 to n2  do
  begin
     j:=1;
          for j := 2 to n2-1  do
                    begin                           // проблема в том что бы не использовать 3-й цикл для увеличения j в самих условных операторах...
               if (i mod j) = 0 then
                   break;


               if (i mod j) <> 0 then
                begin

                    write(i,' ');
                    break;
                  end;

                    end;

  end;



  readln;
end.

Тойсть на данный момент

10\2 брейк внутр цикла
11\2 выводим 11
12\2 брейк внутр цикла
13\2 выводим 13
..............
15\2 оно записывает

А нужно:

10\2 брейк внутр цикла
11\2 записываем
12\2 брейк внутр цикла
11\2 записываем
................
15\2 => продвигаемся, увеличивая j пока не будет целечисленое деление(например 15\3)
15\3 брейк внутр цикла

[Greblin]

Что-то у Вас, мягко говоря, странный алгоритм. Вот

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n1,n2:byte;
    i,j:integer;
    simple: boolean;

begin
write('n1= ');
readln(n1);
write('n2= ');
readln(n2);

for i := n1 to n2  do
  begin
  if i <> 1 then simple := true;
  for j := 2 to i-1  do
    if (i mod j) = 0 then
      begin
      simple := false;
      break;
      end;
  if simple then write(i,' ');
  end;
  readln;
end.

Кстати, в целях ускорения можно использовать тот факт, что все простые числа > 3 имеют вид 6k+1 или 6k-1. Плюс проверять можно не до i-1, а до sqrt(i)