Turbo pascal - Program obliczający pierwiastek z danej liczby

Program oblicza pierwiastek z danej liczby z zastosowaniem funkcji i pętli for:

program pierwiastkowanie;
var
a:real;

function pierwiastek (a:real):real;
var x:real;
i:integer;

begin
x:=a/2;
for i:=1 to 100 do
x:=(x+a/x)/2;
pierwiastek:=x;
end;

begin
write ('Podaj liczbe: '); readln (a);
writeln ('Pierwiastek z liczby ',a:0:2,' wynosi ',pierwiastek(a):0:2);
readln;
end.