1) в коротком варианте точно можно без "program **" обойтись? )
2) по длинному ) за что отвечают function и readkey? )
икс не инициализирован. Надо либо объявить икс константой, или считать с клавиатуры.
считать с клавы можно как wrineln ('vvedite znachenie x') или как?
