Задача на номерные знаки машин

[DanTheKing]

Привет Форумчанины
копался я недавно в залежах бумаг своих
и отыскал "старые" задачки по Pacal,и вот одна из них ввела меня в ступор.
попытаюсь обьяснить условие:
Есть 4 ФОРМАТА номерных знаков ->

1)A457NB (буква,три цифры,две буквы)
2)ZX357(две буквы,три цифры)
3)HO2749(две буквы,четыре цифры)
4)1234CB(четыре цифры,две буквы)

и соответственно каждому формату присвоен свой тип транспортного средства
для
(формата)
1) это 1
2) 2
3) 3
4)4

а теперь само условие
вводные данные-это номерные знаки в соответствующем формате (на входе 3 знака)
а вывод - это соответствующее этому номерному знаку номер тр.средства

ниже привожу мой код
(насколько я понял,я там напутал что то с циклами)
прошу помощи

 var 
 c:string;
 b:string;
a:integer;
begin


for a:=1 to 3 do
 readln(b);
 
 for a:=1 to length(b) do 
 begin
 c:='';

 if(b='0')or(b='1')or(b='2')or(b='3')or(b='4'
 )or(b='5')or(b='6')or(b='7')
 or(b='8')or(b='9')then

 c:=c+'0'
else
 c:=c +'A';


 
 if (c='A000AA')then 
 writeln(1)
  else 
 if(c='AA000')then 
    writeln(2)
  else 
 if(c='AA0000')then 
  writeln(3)
  else 
 if(c='0000AA')then 
  writeln(4)
   else 
   writeln(0)
 end;  
   end.

[Iron Monk]

var
 c, b:string;
 a, i:integer;
const
 d: set of char = ['0','1','2','3','4','5','6','7','8','9'];
begin

for i:=1 to 3 do
begin
 readln(b);
 c:='';
 for a:=1 to length(b) do
     begin
     if b[a] in d then
     c:=c+'0'
     else
     c:=c +'A';
     end;

 if (c='A000AA')then
  writeln(1)
  else
 if(c='AA000')then
  writeln(2)
  else
 if(c='AA0000')then
  writeln(3)
  else
 if(c='0000AA')then
  writeln(4)
  else
  writeln(0)
 end;
 Readln;
end.

[Stilet]

1)A457NB (буква,три цифры,две буквы)
2)ZX357(две буквы,три цифры)
3)HO2749(две буквы,четыре цифры)
4)1234CB(четыре цифры,две буквы)

if (b[1] in ['A'..'Z']) and (b[1] in ['A'..'Z']) 
 and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1']) and (b[4] in ['0'..'1']) Then writeln(2) else

if (b[1] in ['A'..'Z']) and (b[1] in ['A'..'Z']) 
 and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1']) and (b[4] in ['0'..'1']) and (b[5] in ['0'..'1']) Then writeln(3) else

if (b[1] in ['A'..'Z'])  
 and (b[2] in ['0'..'1'])  and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1'])
 and (b[5] in ['A'..'Z']) and (b[6] in ['A'..'Z']) Then writeln(1) else

if (b[5] in ['A'..'Z']) and (b[6] in ['A'..'Z']) 
 and (b[1] in ['0'..'1'])  and (b[2] in ['0'..'1']) and (b[3] in ['0'..'1'])
 and (b[4] in ['0'..'1']) Then writeln(4) ;

Это если не учитывать проверку размера строки.

[Iron Monk]

Сообщение от Stilet

if (b[1] in ['A'..'Z']) and (b[1] in ['A'..'Z']) 
 and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1']) and (b[4] in ['0'..'1']) Then writeln(2) else

if (b[1] in ['A'..'Z']) and (b[1] in ['A'..'Z']) 
 and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1']) and (b[4] in ['0'..'1']) and (b[5] in ['0'..'1']) Then writeln(3) else

if (b[1] in ['A'..'Z'])  
 and (b[2] in ['0'..'1'])  and (b[3] in ['0'..'1'])  and (b[4] in ['0'..'1'])
 and (b[5] in ['A'..'Z']) and (b[6] in ['A'..'Z']) Then writeln(1) else

if (b[5] in ['A'..'Z']) and (b[6] in ['A'..'Z']) 
 and (b[1] in ['0'..'1'])  and (b[2] in ['0'..'1']) and (b[3] in ['0'..'1'])
 and (b[4] in ['0'..'1']) Then writeln(4) ;

Это если не учитывать проверку размера строки.

in ['0'..'9'] всё же...

[DanTheKing]

Спасибо!) заодно заметил свои глупые ошибки)

[Stilet]

in ['0'..'9'] всё же...

А-А-А!!!!
Вот это провтыкал!!!!

[Аватар]

Мне от Iron Monk нравится, чуть переделал

  for a:=1 to length(b) do
    case b[a] of
    '0'..'9': b[a]:='0';
    'A'..'Z': b[a]:='A';
    else b[a]:='?';
    end;
  if b='A000AA'      then writeln(1)
  else if b='AA000'  then writeln(2)
  else if b='AA0000' then writeln(3)
  else if b='0000AA' then writeln(4)
                     else writeln(0);