Дана строка символов до точки. Определить, является ли она правильным скобочным выражением. Рассматривать только круглые скобки — Pascal(Паскаль)

uses crt;
var st:string;
k,i:integer;f:boolean;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 k:=0;
 f:=true;
 for i:=1 to length(st) do
 begin
 if k<=0 then
 begin
  f:=false;
  break;
 end else case st[i] of
 '(': inc(k);
 ')': dec(k);
 end;
 end;
 if f and (k=0) then writeln('Скобки расставлены верно') else writeln('Скобки расставлены неверно');
 readln;
end.