Кто умеет работать со строками в pascal, помогите.

Question

Вводим строку 
например: 123(123456)789(456) 
если первым встречается символ ( то тогда вывести writeln(верно) , если первым встречается символ ) то тогда вывести writeln(не верно).

Анастасия Фёдорова · Accepted Answer

var 
 s: string; 
 lp, rp: integer; 
begin 
 write('строка? '); 
 readln(s); 
 lp := pos('(', s); 
 rp := pos(')', s); 
 if lp < rp then 
 writeln('верно') 
 else if rp < lp then 
 writeln('не верно') 
 else 
 writeln('скобки отсутствуют'); 
end.