Написать программу, которая проверяет в строке баланс открывающихся и закрывающихся круглых скобок (строка содержит арифметическое выражение) — Pascal(Паскаль)

var
 s:string;
 sk,i:integer;
begin
readln(s);
sk:=0;
for i:=1 to length(s) do
 if s[i]='(' then sk:=sk+1 else
  if s[i]=')' then sk:=sk-1;
if sk = 0 then writeln('skobki sbalasirovany') else
 if sk > 0 then writeln('Skobok "(" bolshe') else
  writeln('Skobok ")" bolshe');
end.