после writeln() должно стоять ( ;)
и в конце не нужна readln
Вот, мой учитель сказал что все правильно.