Составить программу определения является ли введенное число простым

uses crt;
{основная функция}
function Prost(n:longint):boolean;
{вспомогательная, определяет есть ли делители у числа кроме самого и 1}
function Kratn(a,b:longint):boolean;
begin
if b<=1 then exit;{1 и 0 не считаем, это условие выхода из рекурсии}
Kratn:=(a mod b <>0)and Kratn(a,b-1);
{если не делится на данное и меньше его на 1 число, смотрим следующее}
end;
begin
Prost:=Kratn(n,n-1);{если нет делителей-простое}
end;
var m:longint;
begin
clrscr;
write('M=');
readln(m);
if Prost(m) then write('Prostoe!')
else write('No!');
readln
end.

function Prost(n:longint):boolean;
{вспомогательная, определяет есть ли делители у числа кроме самого и 1}
function Kratn(a,b:longint):boolean;
begin
Kratn:=(a mod b <>0)and Kratn(a,b-1);
{если не делится на данное и меньше его на 1 число, смотрим следующее}
end;
begin
if n>1 then Prost:=Kratn(n,n-1);{если нет делителей-простое}
end;

function Prost(n:longint):boolean;
{вспомогательная, определяет есть ли делители у числа кроме самого и 1}
function Kratn(a,b:longint):boolean;
begin
if b>1 then 
Kratn:=(a mod b <>0)and Kratn(a,b-1);
{если не делится на данное и меньше его на 1 число, смотрим следующее}
end;
begin
Prost:=Kratn(n,n-1);{если нет делителей-простое}
end;

program n2l;
var a,b,c,n:longint;
 
begin
writeln('vvedite n');
readln(n);
 
for a:=1 to n-1 do
  begin
   c:=0;
   for b:=1 to a do  if a mod b=0 then c:=c+1;
    if c=2 then write ('  ',b);
  end;
 
readln;
end.

program prost_un;
var a,b,c,n:longint;
 
begin
writeln('vvedite n');
readln(n);
a:=0;
 repeat
 a:=a+1;
 c:=0;
 b:=0;
    repeat
     b:=b+1;
     if a mod b=0 then c:=c+1;
     until b=a;
    if c=2 then write ('  ',b);
  until a = n-1;
 
readln;
end.

program ggg;
var i,n:integer;
begin
readln (n);
repeat i:=i+1;
until n mod i=0; if n=i 
then write ('vern=')
else write ('ne vern=');
end.