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

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.