Помогите найти ошибку во Free Pascal

нет сейчас установленного компилятора, но там явно ошибка с кавычками. Я уже точно не помню синтаксис, но похоже если удалить в конце writeln запятую и кавычку, то всё должно заработать. Компилятор говорит Вам, что Вы начали писать строку, но не закончили :)

P.S. кстати первый вариант вопроса был более информативный. Ошибку надо тоже указывать. Если бы на тот вопрос не наткнулся, тут бы ответить не смог, так как мало ли, что у вас там в коде не так пошло :)