В файле Р1 набрать текст. Проверить, имеется ли в заданном тексте баланс открывающихся и закрывающихся скобок. Для встречающихся в заданном тексте пар рядом расположенных символов указать, сколько раз встречается каждое из таких двухбуквенных сочетаний — 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.