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

Var st: string; i: byte; beginreadin (st); for i: =1 to length (st) do if st[i]='A' then begin write ('А встретилась раньше'); break; endelse if st[i]='B' then beginwrite ('B встретилась раньше'); break; end; end.