Некорректная работа

[orandzheviyman]

Здравствуйте, программа должна проверять на соответствие открывающихся и закрывающихся скобок с помощью стека.

PROCEDURE FromStek ();
BEGIN
    New (pAddt);
    if PHead <> NIL then begin
        PHead := PHead^.Next;
        dispose (pAddt);
                         end
            else
                writeln ('Error! Stek pust, lishnyaya zakrivayushaya skobka');
END;

BEGIN
    assign (t, 'stroka.txt');
    reset (t);
    writeln ('You check the string:  '); writeln ();
    while not EOF (t) do begin
        read (t, ch);
        write (ch);
                         end;
    close (t);
    reset (t);
    writeln ();
    
    while not EOF (t) do begin
        read (t, ch);
        if (ch = '(') or (ch = '{') or (ch = '[') then
            In_Stek (ch)
                else begin
        case ch of
            ')' : begin
                      if (PHead <> NIL) and (PHead^.Data = '(') then
                          FromStek () else begin
                                writeln ();
                                writeln ('Error! Oshibka v ()');
                                exit
                                           end;
                  end;
            '}' : begin
                      if (PHead <> NIL) and (PHead^.Data = '{') then
                          FromStek () else begin
                                writeln ();
                                writeln ('Error! Oshibka v {}');
                                exit
                                           end;
                  end;
            ']' : begin
                      if (PHead <> NIL) and (PHead^.Data = '[') then
                          FromStek () else begin
                                writeln ();
                                writeln ('Error! Oshibka v []');
                                exit
                                           end;
                  end;
            end;
        end;
                        end;
    writeln ();
    if PHead <> NIL then begin
        writeln ('Error! Stek ne pust, gde-to est nezakritaya skobka');
            while pAddt <> NIL do begin
                pHead := pAddt^.Next;
                dispose (pAddt);
                pAddt:=pHead;
                                  end;
                         end
            else
                writeln ('Complete! All is ok!');   
    close (t);
END.

Помогите, пожалуйста.