שלום לכולם..
טוב אז קודם כל תודה רבה לכל מי שיגיב וינסה לתקן !

אז ככה, בניתי תוכנית הבודקת רצף של סוגריים.. כלומר אם הם נפתחים ונסגרים ברצף החוקי
לדוגמא:
{a+b())}}cvs}}{ לא יתקבל
לעומת
כל רצף עם פתיחה וסגירה נכונה של כל אחד מ4 הסוגריים : { [ < (

כמובן שיניתי את המחסנית עצמה לטיפוס char
הרצתי את התוכנית שבניתי ואז הייתה לי טעות בריצה בשורה שתסומן באדום...
בבקשה תמצאו את הטעות ותסבירו לי איך אפשר לסדר את זה.. :

Program Brackets;

Uses Stack;
var
Tav:char;
I:integer;
St1,st2:stack_type;
n1:char;
n2:char;
Begin
stack_init(st1);
stack_init(st2);
Writeln('Please enter the sequence');
readln(tav);

while tav<>'1' do

begin
if (tav=']') or (tav=')') or (tav='}') or (tav='>') then
stack_push(st2,tav);
if (tav='[') or (tav='(') or (tav='{') or (tav='<') then
stack_push(st1,tav);
readln(tav);
end;

while (stack_empty(st1)=false) and (stack_empty(st2)=false) do

begin
stack_pop(st1,n1);
stack_pop(st2,n2);
if (n1='<' and n2='>') or (n1='[' and n2=']') or (n1='{' and n2='}') or (n1='(' and n2=')') then
begin
st1.top:=st1.top-1;
st2.top:=st2.top-1;
end;
end;

if (stack_empty(st1)=true) and (stack_empty(st2)=true) then

writeln('good job')
else
writeln('bad sequence');
end.

תודה רבה רבה !!!!!

program barackets;

uses stack;
var
st:stack_type;
t:char;
n:char;
begin
stack_init(st);
writeln('please enter the sequence');
readln(t);
while t<>'*' do
begin
if (t='<') or (t='[') or (t='(') or (t='{') then
begin
stack_push(st,t);
end;
if (t='>') or (t=']') or (t=')') or (t='}') then
begin
stack_top(st,n);
if (n='<') and (t='>') then
st.top:=st.top-1;
if (n='(') and (t=')') then
st.top:=st.top-1;
if (n='[') and (t=']') then
st.top:=st.top-1;
if (n='{') and (t='}') then
st.top:=st.top-1;
end;
readln(t);
end;
if stack_empty(st)=true then
writeln('well done')
else
writeln('bad sequence');
end.

program deep2;
uses stack;
var
st1:stack_type;
k2:integer;
temp:stack_info_type;

procedure deep(st:stack_type; k:integer; var tp:stack_info_type);
var
st2:stack_type;
i:integer;
temp:stack_info_type;
begin
k:=k-1;
for i:=1 to k do
begin
stack_pop(st,temp);
stack_push(st2,temp);
end;
stack_top(st,tp);
end;
{---------------}
begin
writeln('please enter the stack');
readln(temp);
while temp<>'*' do
begin
stack_push(st1,temp);
readln(temp);
end;
writeln('please enter the deepness');
readln(k2);
deep(st1,k2,temp);
writeln;

if st1.top<k2 then
temp:=' ';
writeln('the item is:' ,temp);
end.