Люди ! дано натуральное число. выяснить является ли оно простым. паскаль если можно с пояснениями

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.