challange one [easy]

Pascal, i tried getting the file to write but I kept getting errors
    Program Chal1;
    Uses CRT;
    Var Name, age, Reddit, filename : String;
    	currentfile : text;
        count : integer;
    Begin
    	Writeln('Please enter your name');
    	readln(Name);
    	writeln('Please enter your age');
    	Readln(age);
    	Writeln('Please enter your reddit user name');
    	Readln(Reddit);
    	CLRSCR;
    	Writeln('your name is ',Name,' you are ',age,' Years old and your user name is ',reddit);
    readln;
    End.