Задача на анализ текстового файла

[Latedelivery]

Здраствуйте. Мне нужно сделать программу в паскале, которая бы работала с текстовыйм файлом.
Собственно вот условие: "В текстовом файле задана строка, признаком конца строки является первая по порядку точка. В строке могут быть круглые (), квадратные [] и фигурные {} скобки, открывающиеся и закрывающиеся."
Нужно: подсчитать баланс скобок в этой строке.
Если у вас есть какие-то идеи или вы знаете как эту программу сделать - пожалуста напишите. Заранее спасибо.

[evg_m]

for j:=1 to length(s) do
begin
case s[j] of
'(': inc(col)'
')': dec(col);
//другие варианты
'.': break;
end;

[OLEG'arh]

var
  f:text;
  s:string;
  skob_krug, skob_kvad, skob_figur,i:Shortint;
begin
  assign(f,'D:\1.txt');
  reset(f);
  readln(f,s);
  for i:=1 to length(s) do
   begin
    case s[i] of
      '(': inc(skob_krug);
      ')': dec(skob_krug);
      '[': inc(skob_kvad);
      ']': dec(skob_kvad);
      '{': inc(skob_figur);
      '}': dec(skob_figur);
      '.':i:=length(s);
    end;
    write(s[i]);
   end;
   writeln;
  writeln('kruglie= ',skob_krug,'   kvadratnie= ',skob_kvad,'   figurnie= ',skob_figur);
  readln;
end.

[Serge_Bliznykov]

1) почитайте вот здесь - Проверить равенство числа открывающих и закрывающих круглых скобок

2) по условию задачи - процесс обработки Вам надо завершать не по достижению length(s), а когда s[i] = '.' (т.е. по достижению точки)

2) я бы эту задачу всё таки рассматривал не только как простой подсчёт количества открывающих скобок, а и их взаимное расположение... имхо....
Например, с точки зрения подсчёта баланса такое выражение абсолютно верно:
][))]}(([}{{.
если Вы с этим согласны - тогда заводите три переменные (отдельно для круглых, квадратных и фигурных скобок) и действуйте по алгоритму evg_m - пост#2
иначе алгоритм разбора будет совсем другой...

[Latedelivery]

Всем спасибо, посмотрел тему про равенство, вроде понял как сделать.