Проверка числа на простоту

program prostota;
var x,d:integer;
 
function fact(x: integer): integer;
begin
for d:=1 to x do
if (x mod d)=0 then fact:=1;
end;
 
begin
read(x);
if Prost(x)=1 then writeln('PROSTOE') else writeln('sostavnoe')
end;
  begin
   read(a);
   fact(a);
  end.

function simple(x: integer): boolean;
var
  i,k: integer;
begin
  simple:=false;
  if x<2 then exit;
  if not odd(x) and (x<>2)// проверка на четность (четные - за исключение 2 - не простые
    then exit;
  i:=3;
  while i<=sqrt(x) do // проверяем нечетные
  begin
    if x mod i=0 then exit;
    inc(i,2);
  end;
  simple:=true;
end;
 
var
  n: integer;
begin
  write('Enter number: ');
  readln(n);
  writeln(simple(n));
  readln;
end.

function prost(n:integer):boolean;
var i:integer;
begin
  if n<=1 then writeln('Числа меньше 2 не являются простыми')
  else
    begin
      prost:=true;
      for i:=2 to Round(Sqrt(n)) do
        if n mod i=0 then prost:=false;
    end;
end;
 
var x:integer;
begin
  write('x=');readln(x);
  if prost(x) then writeln('Простое')
  else writeln('Не простое');
  readln
end.