Простое или составное?

Pas.0012. Напишите программу, которая определяет, простым или составным является число N.

Решение.

program PrimeNumber;

const
    N = 2017;
  
var
    divider: integer;
    isPrime: boolean;
    answer: string;
  
begin

    isPrime := true;
    divider := 2;

    while (divider < sqrt(N+1)) and isPrime do
    begin
        if N mod divider = 0 then
            isPrime := false
        else
            divider := divider + 1
    end;

    if isPrime then
        answer := 'простое'
    else
        answer := 'составное';

    write(N, ' — ' + answer + ' число.');
  
end.