Паскаль. рекурсия. числа. объясните, как работает код

[[silver beast]]

program Project2;

uses crt;
var

n,m,z,kol,k,i,temp:integer;
Function kr(n,m,z:integer):integer;
begin
if (i>=n) and (i<=m) then
begin
k:=sqr(i);
i:=i+1;
end;
if (k mod z)=0 then
begin
writeln(k);
kol:=kol+1;
end;
if i<=m then
temp:=kr(n,m,z);
end;

{====Vvod dannih====}
function inputN(n:integer):integer;
begin
writeln('vvedite n');
readln(n);
inputN:=n;
end;
function inputM(m:integer):integer;
begin
writeln('vvedite m');
readln(m);
inputM:=m;
end;
function inputZ(z:integer):integer;
begin
writeln('vvedite z');
readln(z);
inputZ:=z;
end;

begin
clrscr;
n:=inputN(n);
m:=inputM(m);
z:=inputZ(z);
i:=n;
writeln('chisla');
begin
temp:=kr(n,m,z);
end;
writeln('kol-vo chisel ',kol);
readln;
end.

[master.devel]

begin
clrscr;//очищаем экран консоли
n:=inputN(n);//вводим значение переменной n с помощью функции inputN
m:=inputM(m);//вводим значение переменной m с помощью функции inputM
z:=inputZ(z);//вводим значение переменной z с помощью функции inputZ
i:=n;//начальное значение i равно переменной n
writeln('chisla');//выводим строку 'Chisla'
begin
temp:=kr(n,m,z);//производим вычисления функции kr
end;
writeln('kol-vo chisel ',kol);//выводим результат функции kr
readln;
end.

Функция kr рекурсивным методом считает количество целых чисел в диапазоне от n до m, которые, возведённые в квадрат, делятся без остатка на z. Результат помещается в глобальную переменную kol. Рекурсивный метод заключается в том, что функция вызывает сама себя с разными параметрами и проверяет условие, чтобы число i не превысило число m, чтобы не выполнять себя бесконечно. Т.е. получается цикл вида:

while i<=m do
begin
if (i>=n) and (i<=m) then//проверяем входит ли число i в диапазон чисел от n до m
begin
k:=sqr(i);//возводим i в квадрат
i:=i+1;//увеличиваем число i на 1
end;
if (k mod z)=0 then//проверяем делится ли число i, возведённое в квадрат, на z без остатка
begin
writeln(k);//выводим на экран это число
kol:=kol+1;//увеличиваем счётчик верных чисел
end;
end;

[[silver beast]]

спасибо большое.премного благодарен