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

uses crt;
var k,i:integer;
f:boolean;
t:text;
ch:char;
 
begin
 clrscr;
 assign(t,'input.txt');
 reset(t);
 k:=0;
 f:=true;
 while not eof(t) do
 begin
  read(t,ch);
  if k<=0 then
  begin
   f:=false;
   break;
  end else case ch of
  '(': inc(k);
  ')': dec(k);
  end;
 end;
 close(t);
 if f and (k=0) then writeln('Скобки расставлены верно') else writeln('Скобки расставлены неверно');
 readln;
end.