встречен конец файла а ожидался оператор

Ответ от Алексей Молчанов[гуру]
У вас слишком много ненужных конструкций begin-end, которые затрудняют понимание кода и в которых легко запутаться. В каждом if у вас идёт только одна команда после проверки условия. В таком случае begin и end не нужны.
if (t >= 5) and (t <= 11) then
writeln('Доброе утро! ')
else if (t >= 12) and (t <= 16) then
writeln('Добрый день! ')
else if (t >= 17) and (t <= 22) then
writeln('Добрый вечер! ')
else if (t >= 23) and (t <= 4) then
writeln('Доброй ночи! ');
Вместо нагромождений else-if разумнее использовать конструкцию case:
case t of
5..11 : writeln('Утро');
12..16 : writeln('День');
17..22 : writeln('Вечер');
end;