Смотри, у тебя есть АДСКИХ размеров подпрограмма. Но, так как она не "вставлена" в основную программу, она бесполезна. Вот как выглядит сейчас вся твоя программа:
begin
Writeln('Пока!');
end.
То есть она только выводит "Пока!". Попробую поправить.
Нашёл ещё один косяк. if (a = 0) or (a = 1) and (a = 2) - переменная не может сразу равняться трём значениям, нужно поставить между ними or и заключить в скобки.
Дебаг прошёл успешно.