program mondat_palindromitas_ell;
{P.M. - 2. fv, 15. gyak., HBV}
uses crt, veremu;

const szovmax=256; { A mondat maximalis hossza karakterekben }
Type tszoveg=string;
var  verem:Tverem;
     mondat:Tszoveg;
     jo_e:boolean; { Polindrom-e? }

procedure beolvas;
begin
  repeat
    write('Kerem a szoveget /max:', szovmax,' karakter/: ');
    read(mondat);
  until ( length(mondat)<=256 );
end;

Procedure uresverem(v:Tverem);
begin
  v.ures;
end;

procedure be_verembe(szoveg:Tszoveg; var verem:Tverem);
var i:integer;
begin
 for i:=1 to length(szoveg) do begin
  verem.verembe(szoveg[i]);
 end;
end;

Procedure kiolvas_ell(szoveg:Tszoveg; var verem:Tverem);
var i:integer;
c:char; { Az eppen kivett elem erteke }
begin
  i:=1;
  While (i<length(szoveg)) and (szoveg[i]=verem.tetejere) do begin
   verem.verembol(c);
   write( c); inc(i);
  end;
  readln;
  jo_e:=false;
  if (i=length(szoveg)) then begin
    write( c);
    if szoveg[i]=verem.tetejere then jo_e:=true
  end;
end;

Procedure kiiras;
begin
 if jo_e then writeln('Polindrom')
 else writeln('Nem...');
end;

begin
beolvas;
uresverem(verem);
be_verembe(mondat, verem);
kiolvas_ell(mondat, verem);
kiiras;
writeln(#07);
end.