(задача в паскале.) 
В строке символов имеются буквы А и В. Определите, какая буква встретится раньше, если просматривать символы слева направо.

var st:string;
i:byte;

begin
readin(st);
for i:=1 to length(st) do
 if st[i] = 'A' then
 begin
  write('А встретилась раньше'); 
break;
end
else
   if st[i] = 'B' then
begin
write('B встретилась раньше');
break;
end;

end.