Смоделировать машину Тьюринга с помощью языка Паскаль

[Джесс]

Люди добрые, помогите, пожалуйста, совсем плохи дела с паскалем, а отчет нужен именно на нем.
1)Функция меняет А на D, D на В , В на С в произвольном алфавите
2)Функция меняет 0 на 1 и 1 на 0 в слове, если двоичное число больше
20.

[Джесс]

Дошла до сюда(
uses crt;
var s:string;
arr: array [1..10] of char;
i:integer;
begin
for i := 1 to A=B do
for i := 2 to B=C do
writeln('Введите ваш текст:');
s:array [1..m] of integer;