Program TELESHOP; var x: real; begin writeln ('...'); write ('...'); write ('...'); readln (x); if x<=1 then begin

else на котором программа встретила ошибку относиться к if x<=1, что бы поставить это else сначала нужно закрыть begin, стоящий после описанного выше if, т.е. у вас должно быть 2 end подряд. Что бы исправить программу, после строки, где программа выдает ошибку поставьте еще один end, что бы закрыть второй begin программы.