Как объяснить прогу

[Devid92]

Народ помогите мне) У меня есть прога в которой я не очень разбераюсь. Мне нужно что бы объясняя преподу программу он удостоверился что писал её я) Помогите мне подобрать объяснения к ней. Что и к чему там делается?.. Буду благодарен за объяснения




program Skobka;
Var
s:array[1..100000] of byte;
i,top,ci:integer;
st:string;
b:boolean;

Function trans(c:char):byte;
begin
case c of
'(' : trans:=0;
'[' : trans:=1;
'{' : trans:=2;
')' : trans:=3;
']' : trans:=4;
'}' : trans:=5;
else trans:=6;
end;
end;

Function StackEmpty:boolean;
begin
if(top=0) then
stackempty:=true
else
stackempty:=false;
end;

Function Pop:integer;
begin
dec(top);
pop:=s[top+1];
end;

Procedure Push(x:integer);
begin
inc(top);
S[top]:=x;
end;

begin
writeln('Введите предложение');
readln(st);
b:=true;

for i:=1 to length(st) do
begin
ci:=trans(st[i]);
if (ci<>6) then
begin
if(ci<3) then
push(ci)
else
if(ci-3<>pop) then
begin
b:=false;
writeln ('НЕ верная скобочная последовательность');
break;
end;
end;
end;
if b then
if(not StackEmpty) then
writeln('НЕ верная скобочная последовательность')
else
writeln('Верная скобочная последовательность');
readln;
end.