Проверить правильность расстановки скобок

Program _3;
Uses Crt;
Var
 s : string;
 k_z, k_v, i : integer;
Begin
 clrscr;
  writeln('Vvedit` vuraz');
  readln(s);
  for i:=1 to length(s) do
   if (s[i] = '(') then inc(k_v) else
   if (s[i] = ')') then inc(k_z);
   if (k_v = k_z) then writeln('Dygku rozstavleni pravulno') else
                      writeln('Dygku rozstavleni ne pravulno');
 readln;
End.

Program _1;
Uses Crt;
Var
 x : real;
 i,n : integer;
 s : string;
 len: integer;
Begin
 clrscr;
  writeln('Vvedit` chuslo');
  readln(x);
  readln(n);
  if x=int(x) then
    begin
      i:= trunc(x);
      str(i,s);
      len := length(s);
    end
  else
    begin
      str(x:0:n,s);
      len := length(s)-1;
    end;
  writeln('Kilkist` cufr v desyatkovomy zapusi = ',len);
  readln;
End.

{ Вариант со строкой }
Var
 i : integer;
 s : string;
 len: integer;
Begin
  readln(s);
  len:=length(s);
  if pos('.',s)>0 then
    dec(len);
  writeln('Kilkist` cufr v desyatkovomy zapusi = ',len);
  readln;
End.