Программа Паскаль.ребят, помогите плиз найти ошибку и объяснить почему так.учитель сказал, что ошибка связана с "writeln", т.е. где-то он то ли нужен, то ли не нужен

Полный текст программы пожалуйста, в приведённом отрывке ошибок нетю