простые числа, простая но не рабочая функция Опции

[compiler]

Добрый день!
написал свою функцию проверяющею простоту числа, а она не работает. Покажите пожалуйста ошибку.

var
	den,d:integer;
function simple(a:integer):boolean;
var
	i: integer;
begin
	simple:=true;
	i:=2;
	while (i< (trunc(sqrt(a)) )) and (simple=true)do begin
		if a mod i = 0 then simple:=false;		
		inc(i);
	end;
end;
begin
	ReadLn(d);
	
	for den:=0 to d do begin
		if simple(den)=true then 
			writeLn(den);
	end;
	ReadLn(d);
end.

Заранее благодарен
ЗЫ да, я знаю про то что в ЧаВо есть подобная функция..

Сообщение отредактировано: compiler - 29.04.2007 19:38

[klem4]

function simple(a:integer):boolean;
var
	i: integer;
        s: boolean;
begin
	s:=true;
	i:=2;
	while (i<= (trunc(sqrt(a)) )) and (s=true)do begin
		if a mod i = 0 then
                 s:=false;
		inc(i);
	end;
        simple := s;
end;

ps
Можно сделать и без exit'a в одну строчку ...