Определить простое число или нет

uses crt;
function Prost(a:longint):boolean;
var i:longint;
    f:boolean;
begin
if a<2 then f:=false{первое простое=2}
else
 begin
  f:=true;{считаем что простое}
  i:=2;
  while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}
  if a mod i=0 then f:=false{если делитель, не постое}
  else i:=i+1;{иначе дальше}
 end;
 Prost:=f;{результат true или false}
end;
var n:integer;
begin
clrscr;
writeln('Введите натуральное число n=');
readln(n);
if Prost(n)then writeln('Простое')
else writeln('Не простое');
readln
end.

program chisla;
uses crt;
var i,a,k: integer;
begin
 clrscr;
 write('введите число: ');
 readln(a);
 k:=0;
 for i:=2 to a div 2 do
 if a mod i =0 then k:=k+1;
 if k=0 then write('простое')
 else writeln('не простое');
 readln;
end.

function Prost(a:longint):boolean;
var
i:integer;
begin
Prost:=true;
if a<2 then Prost:=false else
for i:=1 to a div 2 do 
if ((a mod i)=0) and (i<>1) then Prost:=false;
end;

function Prost(a: longint): boolean;
var i: integer;
begin
  Prost := a >= 2;
  for i := 2 to trunc(sqrt(a)) do if a mod i = 0 then Prost := false
end;

function prost(a:longint):boolean;
 var
  i:integer;
 begin
  prost:=true;
  i:=3;
  if(a<2)or(a mod 2=0)then prost:=false else
  if(a<>2)then
  while(i<trunc(sqrt(a)))do
   begin
    if(a mod i=0)then prost:=false;
    i:=i+2;
   end;
 end;