Вычисление бесконечной суммы в delphi

[maladoy]

PROGRAM SUMMA;
VAR
X,EPS,S:REAL;
I,n:INTEGER;

function power2 (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k);
end;
BEGIN
WRITELN('VVEDI X');
READLN(X);

IF (X>0) AND (X<1) THEN BEGIN
S:=1;
I:=1;
EPS:=0,001;
WHILE EPS>0,0001DO
BEGIN
EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;
I:=I+1;
END;
END
ELSE BEGIN
WRITELN('VVEDI N);
READLN(N);

FOR I:=1 TO N DO

S:=S+(I+1)* POWER2(X,I);
END;
WRITELN('SUMMA=',S);
READLN;
END.

[Hegel]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

VAR
X,EPS,S:REAL;
I,n:INTEGER;

function power2 (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k);
end;
BEGIN
WRITELN('VVEDI X');
READLN(X);

IF (X>0) AND (X<1) THEN BEGIN
S:=1;
I:=1;
EPS:=0.001;
WHILE EPS>0.0001DO
BEGIN
EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;
I:=I+1;
END;
END
ELSE
BEGIN
WRITELN('VVEDI N);
READLN(N);

FOR I:=1 TO N DO

S:=S+(I+1)* POWER2(X,I);
END;
WRITELN('SUMMA=',S);
READLN;
END.

[Pascal Error] Project1.dpr(33): E2052 Unterminated string
[Pascal Error] Project1.dpr(34): E2029 ',' or ')' expected but identifier 'READLN' found