Pascal. Стэк. Главная программа

[Zoxa]

Привет всем)
У меня возникла проблемка в главной программе.
Вот условие задачки:

При помощи стэка проверить действительно ли строка символов симметрична относительно середины. Признак середины - цифра 0.


Вот код:

program lab13;
type
zv=^pointer;
pointer=record
elem: char;
next: zv
end;
var
k,sym: char;
s: zv;
b: boolean;
procedure vstek(var st: zv; buk: char);
var Q: zv;
begin
new(Q);
Q^.elem:=buk;
Q^.next:=st;
st:=Q
end;
procedure vdstek(var st: zv; var A: char; var L: boolean);
var Q: zv;
begin
l:=true;
if st=nil then L:=false
else
begin
A:=st^.elem;
Q:=st;
st:=st^.next;
dispose(Q);
end
end;
begin {golovna programa}
s:=nil;
writeln('vvedu sumvolu');
read(sym);
vstek(s,sym);
b:=true;
while (sym<>'.') and b do
begin
if sym='0' then vdstek(s,k,b);
read(sym);
end;
if (S=nil) and b then
writeln('rjadok sumetruchnuj')
else
writeln('ne sum');
end.

Не знаю, как в главной программе указать, что если середина строки 0, тогда она симметрична.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.`

[p51x]

пока новый_символ_из_строки не 0 кидать в стек
симметричная = ПРАВДО

пока не конец строки
 если новый_символ_из_строки НЕ РАВЕН символ_из_стека
  симметричная = НАПРАВДО :(
  бряк