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

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 _3;
Uses Crt;
Var
 s : string;
 i : integer;
 k: integer;
 len: integer;
Begin
  clrscr;
  writeln('Введите выражение');
  readln(s);
  len := length(s);
  
  k:= 0;
  while (k>=0) and (i<=len) do
    begin
      if s[i]='(' then inc(k)
      else if s[i]=')' then dec(k);
      inc(i);
    end;
  if k=0 then
    writeln('Скобки поставлены правильно')
  else
    writeln('Скобки поставлены неправильно');
 readln;
End.

Program _1;
Uses Crt;
Var
 i : longint;
 s : string;
Begin
 clrscr;
  writeln('Vvedit` chuslo');
  readln(i);
  str(i,s);
  writeln('Kilkist` cufr v desyatkovomy zapusi = ',length(s));
 readln;
End.

Program _1;
Uses Crt;
Var
 i : real;
 s : string;
 len: integer;
Begin
 clrscr;
  writeln('Vvedit` chuslo');
  readln(i);
  str(i,s);
  len :=length(s);
  if pos('.',s)>0 then
     dec(len);
  writeln('Kilkist` cufr v desyatkovomy zapusi = ',len);
 readln;
End.