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

uses crt;
var s: string;
    i,psi,k: integer;
begin
write ('Введите строку ');
readln (s);
for i:=1 to length (s) do
    if s[i]='(' then inc(k) else
       if s[i]=')' then dec(k);
if k=0 then writeln ('Скобки расставлены правильно') else
   if k=1 then writeln ('Лишняя открывающая скобка') else
      if k>1 then writeln ('Лишние открывающие скобки')else
         if k=-1 then writeln ('Лишняя закрывающая скобка') else
            writeln ('Лишние закрывающие скобки');
end.