Как в паскале определить простое число или нет? желательно программу как можно проще. заранее

Программа работает
var
n,i,j,s :integer;
begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.

П.С. программа находит все простые числа до заданного тобой числа