Найти все простые числа в заданном диапазоне

[Nikita++]

Нужно найти все простые числа в заданном диапазоне. Задумка примерно такая, а до ума довести не могу. Помогите, пожалуйста, и желательно до 21 числа.



program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,n,b:Int64;
p:word;
c:real;

begin
readln(b);
n:=1;
x:=1;
while (x<=b) do
begin
x:=x+1;
c:=(sqrt(x+1));
while (trunc(c))or(p<>0) do
begin
n:=n+1;
p:=x mod n;
end;
if n=(trunc(c)) then writeln(x);
end;
readln;

end.

[Nikita++]

P.S. язык pascal

[Serge_Bliznykov]

такие вещи удобно реализовавать через использование функций.
например:

function isPrime(X: LongInt): boolean;
var i: integer;
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;

var i, a, b : int64;
begin  
   WriteLn('Введите границы диапазона ( a .. b ):');
   Readln(a, b);
   for i:=a to b do
     if  isPrime(i) then WriteLn(i:1);
   Readln;
end.

и всё.

[Nikita++]

Спасибо большое, но ... в более простом виде нельзя? А то я тут некоторые вещи еще не знаю

[Nikita++]

   for i:=a to b do

вот тут [Pascal Error] Project1.dpr(28): E2032 For loop control variable must have ordinal type;
Я программированием занимаюсь только 3 неделю(8 класс), так что не особо понимаю некоторые вещи.

[Базиля]

Nikita++
Тип исправте на integer

var i, a, b : int64;

на

var i, a, b : integer;

Возможно поэтому компилятор ругается

[Nikita++]

Все равно не хочет

[Roof]

что не хочет?
если проблема в строке

isPrime:=true;

то исправь на

Result := true;

[Roof]

Двойной пост