Czemu niepowiązana zmienna kopiuje wartość od drugiej?

program zadanie_v4;
var a, p, Eps: real;
var MaxI: integer;
var pierwiastekIter:real;
var pRekur: real;
var iIter, iRekur:integer; // liczniki iteracji dla pierwiastka iteracyjnego i rekurencyjnego

procedure CzytajDanePierwiastka;
begin
     write( 'Podaj liczbe rzeczywista - a: ' ); readln( a );
     writeln;
     write( 'Podaj wartosc pierwszego przyblizenia - p: ' ); readln( p );
     writeln;
     write( 'Podaj dokladnosc Eps: ' ); readln( Eps );
     writeln;
     write( 'Podaj maksymalna liczbe iteracji MaxI: ' ); readln( MaxI );
     writeln;
end;


function LiczPierwiastekIteracyjnie(a, p, Eps:real; var MaxI:integer): real;
var pierwiastek, b:real;
var i: integer;
begin
     pierwiastek := p;
     b := a;
     i := 0;

       while(abs(p-b)>=Eps) and (i<MaxI) do
       begin
           p := (p+b)/2;
           b := a/p;
           writeln('pierwiastek ', p:5:5, ' b:', b:5:5);
           i := i+1;
       end;
       writeln;
       iIter := i;
       LiczPierwiastekIteracyjnie:=b;
end;


function LiczPierwiastekRekurencyjnie(a, p, Eps:real; var MaxI:integer): real;
var pierwiastek, b:real;
var i: integer;
begin
    if(abs(p*p-a)<=Eps) and (i<MaxI) then
    begin
        LiczPierwiastekRekurencyjnie:=p;
    end
    else
        begin
             p:=0.5*(p + a/p);
             i := i+1;
             writeln ('p:', p);
             LiczPierwiastekRekurencyjnie(a,p,Eps,MaxI);
        end;
     iRekur := i;
end;


procedure WypiszPierwiastek(var pierwiastekIter, pierwiastekRekur:real);
begin
     writeln('Obliczona wartosc pierwiastka iteracyjnie x=', pierwiastekIter:7:7);
     writeln('Wykonana liczba iteracji - ', iIter);
     writeln('Kwadrat pierwiastka - x*x=', (pierwiastekIter*pierwiastekIter):10:10);
     writeln('Roznica liczby i kwadratu pierwiastka - a-x*x=', (a-pierwiastekIter*pierwiastekIter):10:10);
     writeln;
     writeln('Obliczona wartosc pierwiastka rekurencyjnie x=', pierwiastekRekur:7:7);
     writeln('Wykonana liczba rekurencji - ', (iRekur-1));
     writeln('Kwadrat pierwiastka - x*x=', (pierwiastekRekur*pierwiastekRekur):10:10);
     writeln('Roznica liczby i kwadratu pierwiastka - a-x*x=', (a-pierwiastekRekur*pierwiastekRekur):10:10);
end;


begin
     pierwiastekIter := 0;
     pRekur := 0;
     CzytajDanePierwiastka;
     pierwiastekIter := LiczPierwiastekIteracyjnie(a,p,Eps,MaxI);
     pRekur := LiczPierwiastekRekurencyjnie(a,p,Eps,MaxI);
     writeln('pierwiastekrekur ', pRekur);
     WypiszPierwiastek(pierwiastekIter, pRekur);
     readln;
end.

function LiczPierwiastekRekurencyjnie(a, p, Eps:real; var MaxI, i:integer): real;
var b:real;
begin
    if(abs(p*p-a)<=Eps) or (i>=MaxI) then
    begin
         writeln('koniec rekurencji p=', p);
         iRekur := i;
         Result:=p;  //zwrot wartosci przez funkcje

    end
    else
        begin
             p:=0.5*(p + a/p);    //obliczenie przyblizenia - srednia z starego przyblizenia i dzielenia liczby a przez stare przyblizenie
             i := i+1;      //inkrementacja licznika
             writeln ('p:', p, ' i:', i, ' MaxI:', MaxI);
             LiczPierwiastekRekurencyjnie(a,p,Eps,MaxI, i); //wywolanie rekurencyjne

        end;

end;

Result := LiczPierwiastekRekurencyjnie(a,p,Eps,MaxI, i); //wywolanie rekurencyjne

LiczPierwiastekRekurencyjnie := LiczPierwiastekRekurencyjnie(a,p,Eps,MaxI, i);