bagaimana cara membuat kode algoritma menentukan bilangan prima pada kode pascal?

Program cekprima;
Var
Nom : Integer;
check,count,adder : ShortInt;
Begin Write('Ketik Nomor ');
Readln(Nom);
adder := 0;
For count := 1 to 10 do
begin
checker := nom mod count;
if checker = 0 then adder := adder + 1 end;
if (nom <= 10) and (adder > 2) then
Writeln(nom, ' bukan prima')
else
if (nom > 10) and (adder > 1) then
Writeln(nom, ' nomor ini bukan prima')
else
Writeln(nom,' ini bilangan prima');
end.