Все лабораторные работы по паскалю / 4 лаб. Строки / Program6

uses crt;
var s: string;
i,KolO,KolZ: byte;
begin
clrscr;
write('Исходная строка: ');
readln(s);
for i:=1 to length(S) do
if S[i]='(' then KolO:=KolO+1;

for i:=1 to length(S) do
if S[i]=')' then KolZ:=KolZ+1;

if KolO=KolZ then write('Введено правильно')
else write('Нехватает скобок');

readln;
end.