рекурсия паскаль

[qwerty98765]

Создать логическую функцию, которая возвращает True, если ее аргумент = простое число.
алгоритм реалиовать через рекурсию

господа, каюсь ничего не понимаю в рекурсии...в принципе есть вот такая функция - внедрите пожалута ее в рекурсивный алгоритм



Function Simple (Pr : Integer) : Boolean;
Var I : Integer; LogPer : Boolean;
Begin I := 2; {счетчик}
Repeat
LogPer := (Pr Mod I = 0);
I := I + 1
Until (I > Pr Div 2 + 1) Or (LogPer);
Simple := Not LogPer
End;

[eoln]

function Simple (Pr : Integer; i: integer = 2) : Boolean;
begin
  if Pr < 2 then result := false else//первое простое число - это 2
  if Pr = 2 then result := true else//если Pr=2, то сразу говорим ДА
  if Pr mod i = 0 then//делится ли число без остатка на i (первоначально i=2)
    result := false
  else
    if i < Pr div 2 then
      result := Simple(Pr, i + 1)//если не делится, то пытаемся делить на i+1
    else
      result := true//возникает в случае если Pr не делится ни на одно число из промежутка (2, Pr div 2]
end;
var i: byte;
begin
for i := 1 to 14 do
  if Simple(i) then writeln(i:3, ' yes') else writeln(i:3, ' no');
  readln
end.

рекурсия_1
рекурсия_2