Текст программки паскаль. нужно внести коррективы в текст программки. Какие?PROGRAM

Текст программки паскаль. нужно внести коррективы в текст программы. Какие?

PROGRAM PR12_NV;
USES CRT;
VAR Y, A: REAL;
I: BYTE;
BEGIN
WRITE( a = );
READLN(A);
Y:=0;
FOR I: = 1 TO 10 DO
BEGIN
Y: = Y+ I*LN(A);
I: = I 1;
END;
WRITELN( Y = , Y:12:6);
END.