Дано натуральное число определить является ли оно пррстым или составным?

VAR
   a, m, i: integer;

BEGIN
   read(a);
   for i:=1 to a do
          if a mod i = 0 then m:=m+1;
   if (m = 2) and (a <> 2) then write('число ', a, ' простое')
                    else write('число ', a, ' составное');
END.

вроде правильно, но проверь в паскале, а то у меня програмки нет на компе