ЛЮДИ ПОМОГИТЕ!!!Дано натуральное число. Выяснить является ли оно простым. ПаскальЕсли можно

Var
   x,i,f:integer;
begin
f:=1; //признак, определяющий простоту числа
write('Введите число: ');
readln(x);
for i:=2 to x-1 do //перебираем числа
  if x mod i=0 then f:=0; //если число делится без остатки, значит оно сложное
if f=1 then
   writeln('Это обычное число')
   else writeln('Это непростое число')
end.