Машина Тьюринга на Pascal

Программа имитирует работу машины Тьюринга.
Читает данные, обрабатывает по программе машины Тьюринга (см. инструкцию), выводит результат работы.
В работе приведен исходный код программы с комментариями, инструкция, необходимые для работы файлы.
Инструкция по использованию программы:
1. Записать в файл "prog" программу для машины Тьюринга.
В первой строчке перечислить все символы
(в том числе и пyстой(обозначается как *),
которые автомат может видеть на
ленте.
Запись без пробелов, через запятую.
Например:
*,0,1,2,3,4,5,6,7,8,9
2.Во второй строке записывается состояние q1,в третьей- q2 и так далее.
Так же без пробелов и через запятую.
Например:
1S0,1S0,2S0,3S0,4S0,5S0,6S0,7S0,8S0,9S0,0L1
1S0,1S0,2S0,3S0,4S0,5S0,6S0,7S0,8S0,9S0,0L1
1S0,1S0,2S0,3S0,4S0,5S0,6S0,7S0,8S0,9S0,0L1
...
3. Записать в файл "data" данные, которые машина должна обработать
Без пробелов и через запятую.
4. Запустить программу.