Прежде всего - уберите чисто ошибки "грамматические": пробелы в фрикадельках и студне. Ну а потом... К сожалению, насколько я знаю, в Паскале НЕ СУЩЕСТВУЕТ способа вывести на печать НАЗВАНИЯ компонентов перечисляемого типа, а потому действие
Код:
for i:=Borscht to Coffee do
if i in a then write(i, ' ')
не пройдет. Вроде как-то так.