Проверить, соблюдён ли в тексте баланс скобок трех видов

{ В файле находится текст, в котором используются скобки трёх типов. 
Используя стек, проверить, соблюдён ли баланс скобок в тексте} 
 
uses crt;
type pnode= ^node;
node=record
c:char;
p:pnode;
end;
 
var top: pnode;
s:string; i:integer; f:text; c,c1:char; b:boolean;
 
function push(top:pnode; c1:char):pnode;
var p:pnode;
begin
new(p);
p^.c=c;
p^.p=top;
push:=p;
end;
 
function pop(top:pnode; var c:char):pnode;
var p:pnode;
begin
c:=top^.c;
pop:=top^.p;
dispose(top);
end;
 
begin
clrscr;
top:=nil;
b:=false;
 
writeln('Vvedite nomer faila');
readln(s);
assign(f,s+'.txt');
reset(f);
while not eof(f) do
begin
read(f,c);
if c in ['(','[','{'] then
top:=push(top,c);
if c in [')',']','}'] then
if top=nil then
begin
b:=true;
break;
end
else begin
top:=pop(top,c1);
case c1 of
'(': if c<> ')' then begin b:=true; break; end;
'[': if c<> ']' then begin b:=true; break; end;
'{': if c<> '}' then begin b:=true; break; end;
end;
end;
end;
 
if (top<>nil) or b then
writeln('Ne pravilno') else writeln('Pravilno');
close(f);
readln();
end.

type
  PInteger = ^TInteger;

var
  i: Integer;
  p: ^Integer;
begin
  p:=@i; { теперь p указывает на i, i и p^ -- это одна и та же область памяти типа Integer }
  p^:=5; Write(i); { 5 }
  i:=6; Write(p^); { 6 }
end.