Машина Тьюринга в Delphi

[Селякова Елена]

Нужно реализовать в Delphi машину Тьюринга. Так что бы на вход подавалась строка текста в алфавите АВС. Символ "а" должен заменяться на 11, а другие символы на 0.

Я реализовала, чтоб символ "а" заменялся на 1, а остальные символы на 0.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure qqq0(v:char);
    procedure qqq1(v:char);
  end;

var
  Form1: TForm1;
  p:string;
  j:integer;
  a:^char;

implementation

{$R *.dfm}


procedure TForm1.qqq0(v:char);
begin
case v of
  'a': begin
         a^:='1';
         inc(j);
         a:=@p[j];
         Form1.Memo1.Lines.Add('q0 a -> q0 a R'+' ->: '+p);
         qqq0 (a^);
       end;
  '#': begin
         a^:='#';
         a:=@p[j];
         Form1.Memo1.Lines.Add('q0 # -> q2 # S'+' ->: '+p);
         ShowMessage('HappyEnd');
       end;
       else
        begin
         qqq1 (a^);
        end;
  end;
end;

procedure TForm1.qqq1(v:char);
begin
  a^:='0';
  inc(j);
  a:=@p[j];
  Form1.Memo1.Lines.Add('q0 '+a^+' -> q1 0 R'+' ->: '+p);
  Form1.Memo1.Lines.Add('q1  -> q0 ');
  qqq0 (a^);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
Memo1.Clear;
new(a);
p:=Edit1.text;
j:=1;
p:=Edit1.Text+'#';
a:=@p[j];
qqq0(a^);
end;

end.

как изменить? и как сделать, чтоб только АВС в алфавите были, у меня был просто любой текст.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Селякова Елена]

хнык...помогите кто-нибудь(

[Hacker19_90]

вы имете ввиду чтобы в меммо водилась только латиница большими буквами?