работа со стеком

uses crt;
var
stek,qwerty: array[1..100] of string;
mas: array[1..50] of integer;
i,j,m,e,r,l,b,y,x,u,h,k:integer;
a,s,c,q,z,f:string;
t,g,p,o,v:text;
label w,d,n;
begin
r:=1;
clrscr;
i:=0;
repeat
w:
writeln('1-dobavit element v stek');
writeln('2-udalit element s steka');
writeln('3-prosmotr steka');
writeln('4-ochistka steka');
writeln('5-zadanie 2a ');
writeln('6-zadanie 2b ');
writeln('7-exit');
readln(a);
clrscr;
if a='1' then
begin
if i=10 then            {проверка на переполнения} 
begin
writeln;
writeln('PEREPOLNENIE');
readkey;
clrscr;
goto w
end;
writeln('vvedite danie');
readln(q);
inc(i);
stek[i]:=q;
clrscr;
{goto w}
end;
if a='2' then
begin
if i=0 then             {проверка пустой ли стек}
begin
writeln;
writeln('NEHVATKA');
readkey;
clrscr;
goto w
end;
i:=i-1;             {удаления елемента стэка}
clrscr;
{goto w}
end;
if a='3' then
begin
if i=0 then
writeln('stek pust');
for j:=i downto 1 do
writeln(stek[j]);
readkey;
clrscr;
{goto w}
end;
if a='4'then
begin
writeln('stek ochishen');
i:=0;               {удаления елемента стэка}
readkey;
{goto w}clrscr;
end;
 
{-------------------------задание 2а-----------------------------}
 
if a='5' then
begin
i:=0;
x:=0;
assign(t,'d:\4318\f1.txt');
assign(g,'d:\4318\f2.txt');
reset(t);
rewrite(g);
repeat
readln(t,s);
b:=1;
r:=1;
c:='';
m:=length(s);
for r:=1 to m do
begin
if s[r]=' ' then            {ищем пробелы в стороке}
begin
inc(i);
if i=11 then            {проверка на переполнение стека}
begin
inc(x);
for l:=1 to 10 do       {если он полный то содержимое}
qwerty[l]:=stek[l];     {записываем в масив}
i:=1;               {и очищаем стек}
end;
for e:=r downto b do
begin
c:=c+s[e];          {наше слово}
end;
stek[i]:=c;         {слово записываем в стек}
c:='';              {обнуляем переменую для слова}
b:=r+1;
end;
if s[r-1]='.' then
begin
for l:=i downto 1 do
write(g,stek[l]);       {записываем в файл содержимое стэка}
writeln(g);
if x=1 then
begin
for j:=10 downto 1 do
write(g,qwerty[j]);
{write(g,'.');}
x:=0;
end;
i:=0;
end;
end;
until eof (t);
close(t);
close(g);
assign(t,'d:\4318\f1.txt');
assign(g,'d:\4318\f2.txt');
assign(o,'d:\4318\f4.txt');
reset(t);
rewrite(o);
x:=1;
repeat
readln(t,s);
m:=length(s);
mas[x]:=m;
inc(x);
until eof (t);
close(t);
x:=1;
reset (g);
repeat
readln(g,f);
y:=length(f);
for r:=1 to y do
begin
c:=c+f[r];
inc(i);
if i=mas[x] then
begin
writeln(o,c);
c:='';
i:=0;
inc(x);
end;
end;
until eof (g);
close(g);
close(o);
writeln('Preoprazovanie vipolneno');
writeln('1-prosmotr rezultata');
readln(z);
if z='1' then
begin
clrscr;
reset(o);
repeat
readln(o,s);
writeln(s);
until eof (o);
close(o);
readkey;
clrscr;
end;
clrscr;
end;
 
{-----------------задание 2b----------------------------}
 
if a='6' then
begin
assign(t,'d:\4318\f1.txt');
assign(p,'d:\4318\f3.txt');
reset(t);
rewrite(p);
s:=' ';
repeat
readln(t,s);
i:=0;
r:=1;
b:=1;
c:='';
m:=length(s);
for r:=1 to m do
begin
if s[r]=' ' then
begin
inc(i);
if i=11 then        {проверка на переполнения стека}
begin
for l:=1 to 10 do   {если он полный}
write(p,stek[l]);   {то содержимое записывае в файл}
i:=1;           {и очищаем}
end;
for e:=b to r do
begin
c:=c+s[e];      {наше слово записаное в обратном порядке символов}
end;
stek[i]:=c;     {слово помещаем в стек}
c:='';
b:=r+1;
end;
end;
for l:=1 to i do
write(p,stek[l]);
writeln(p);
until eof (t);
close(t);
close(p);
writeln('Preoprazovanie vipolneno');
writeln('1-prosmotr rezultata');
readln(z);
if z='1' then
begin
clrscr;
reset(p);
repeat
readln(p,s);
writeln(s);
until eof (p);
close(p);
readkey;
clrscr;
end;
clrscr;
end;
until a='7';
end.