Ильгиза

Здравствуйте!
Написала программу для определения, слова, в которое преобразует данная машина входные данные исходя из стандартного положения. Программа работает правильно, но необходимо внести какие то новшества, точнее проявить фантазию.
То, что могла я изменила, но больше ничего нового придумать не смогла.(
Не могли Вы бы помощь мне в решении этой проблемы?!
program upr1;uses crt;
var a,s:string;
i,j,k,q:integer;
begin
clrscr;
writeln('введите слово :');
readln(s);
s:='aaaaa'+s+'aa';
i:=length(s)-2;
q:=1;
for j:=i downto 1
do a:=a+' ';
while q<>0 do
begin
a[i]:=#24;
writeln(s);
writeln(a);
a[i]:=' ';
if q=1 then case s[i] of
'a': begin q:=4; s[i]:='a'; inc(i);end;
'1': begin q:=2; s[i]:='1'; dec(i);
end; end;
if q=2 then case s[i] of
'a': begin q:=6; s[i]:='a'; inc(i);end;
'1': begin q:=3; dec(i);
end;end;
if q=3 then case s[i] of
'a': begin q:=6; s[i]:='a'; inc(i);end;
'1': begin q:=1; s[i]:='1'; dec(i);
end;end;
if q=4 then case s[i] of
'a':begin q:=0; s[i]:='1';end;
'1': begin q:=5; s[i]:='a';
end;end;
if q=5 then case s[i] of
'a':begin q:=4; s[i]:='a'; inc(i);end;
'1': begin q:=5; s[i]:='a';
end; end;
if q=6 then case s[i] of
'a':begin q:=0; s[i]:='a';end;
'1': begin q:=7; s[i]:='a';
end;end;
if q=7 then case s[i] of
'a':begin q:=6; s[i]:='a'; inc(i);end;
'1': begin q:=7; s[i]:='a';
end; end;
delay(150);
end;
writeln(s);
end.