Определить, является ли заданное натуральное число простым (рекурсия)

var n:integer;
    f:boolean;
procedure nat (var f:boolean;n,i:integer);
begin
 if i<=n/2 then
   begin
     if (n mod i) = 0 then f:=false;
     Inc (i);
     nat (f,n,i);
   end;
   
end;
 
begin
 f:=true;
 readln (n);
 nat (f,n,2);
 write (f);
 
end.

uses crt;
function Prost(n,i:integer):boolean;
begin
if n<2 then Prost:=false else{первое простое число - это 2}
if n=2 then Prost:=true else{если Pr=2, то сразу говорим ДА}
if n mod i=0 then{делится ли число без остатка на i (первоначально i=2) }
    Prost:=false
  else
    if i*i<=n then
      Prost:=Prost(n,i+1){если не делится, то пытаемся делить на i+1}
    else
      Prost:=true{возникает в случае если Pr не делится ни на одно число из промежутка (2, sqrt(n)]  }
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
write(Prost(n,2));
readln
end.

var n:integer;
    f:boolean;
procedure nat (var f:boolean;n,i:integer);
begin
if n<2 then f:=false else
if n=2 then f:=true else
 if i<=trunc(sqrt(n)) then
   begin
     if (n mod i) = 0 then f:=false;
     Inc (i);
     nat (f,n,i);
   end;
 
end;
 
begin
 f:=true;
 readln (n);
 nat (f,n,2);
 write (f);
 
end.

var
   a,b,c: array[1..100] of integer;
   i,n: byte;
begin
   randomize;
   write('введите N: ');
   readln(n);
   for i:=1 to n do
      begin
         a[i]:=random(101)-50;
         write(a[i],' ');
      end;
   writeln;
   for i:=1 to n div 2 do
      b[i]:=a[i*2];
   for i:=1 to n+1 div 2 do
      c[i]:=a[i*2-1];
   writeln('1 массив');
   for i:=1 to n div 2 do write(b[i],' ');
   writeln;
   writeln('2 массив');
   for i:=1 to n - n div 2 do write(c[i],' ');
   readln
end.

var arr, arr1, arr2 : array [1..100] of integer;
i, n : integer;
begin
 write ('write n= '); readln (n);
 for i:=1 to n do 
   begin
     arr[i]:= random (100);
     write (arr[i]:4);
   end;
 
 for i:= 1 to n do
   if odd (i) then arr1[(i div 2)+1]:= arr[i]
              else  arr2[(i div 2)]:= arr[i];
 
end.