Составьте программу определяющую, является ли число x простым

Uses crt; var a : real; p : boolean; i : integer; procedure haltproc; begin writeln ('неверные данные') ; writeln ('a>=2') ; readln; halt; end; begin clrscr; write ('a=') ; readln (a) ; if a<2 then haltproc; if a=2 then begin writeln2 ('простое') ; readln; halt; end; p:=true; for i:=2 to trunc (a-1) do if a/i=trunc (a/i) then p:=false; if p=true then write ('простое') else write ('не простое') ; readln; end.