Машина Тьюринга. Помогите пожалуйста решить. A={a,b,0,1}. Определить, является ли…

Var A: array [0… 3] of string; i: integer; begin A[0]: ='a'; A[1]: ='b'; A[2]: ='0'; A[3]: ='1'; for i: =0 to 3 do if (length (a[i]) > 0) and (a[i][1] in ['a'… 'z', 'A'… 'Z']) then writeln (A[i], ' => Yes') else writeln (A[i], ' => No'); end. Вот, прошу Вас