Неверный выход из процедуры

program main_prog;
uses crt;
var r:integer;
key:string[1];
label lab1,11,12,13;
label l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12;
 
procedure menu1;
 begin
  clrscr;
  textcolor (yellow);
  writeln (' Для выбора требуемого пункта меню нажмите клавишу, соответствующую');
  writeln ('данному пункту меню                                   Press any key');
  readkey;clrscr;
  textcolor (white);
  writeln ('МЕНЮ ПРОГРАММЫ');
  writeln ('1 Перейти к нормированию');
  writeln ('2 О программе');
  writeln ('3 Визитная карточка создателя программы');
  writeln ('4 Выход из программы');
  key:=readkey;
 end;
 
procedure menu2;
 begin
  clrscr;
  writeln ('Выбор способа обработки');
  writeln ('1  Круглое продольное шлифование с продольной подачей');
  writeln ('2  Шлифование круглое наружнее с радиальной подачей');
  writeln ('3  Бесцентровое шлифование с продольной подачей');
  writeln ('4  Бесцентровое шлифование с радиальной подачей');
  writeln ('5  Шлифование отверстий');
  writeln ('6  Плоское шлифование периферией круга на станках с прямоугольным станком');
  writeln ('7  Плоское шлифование торцом круга на станках с прямоугольным станком');
  writeln ('8  Плоское шлифование периферией круга на станках с круглым станком');
  writeln ('9  Плоское шлифование торцом круга на станках с круглым станком');
  writeln ('0  Шлифование резьбы');
  writeln ('e  Шлифование зубьев');
  writeln ('w  Шлицешлифование');
  textcolor (red);
  writeln ('q Выход');
  textcolor (white);
  key:=readkey;
 end;
 
 procedure aboutpro;
  begin
   clrscr;
   textcolor (lightgreen);
   writeln ('Данная программа позволяет в режиме диалога с пользователем расчитать');
   writeln ('нормы времени и режимы для различных видов шлифовальной операции.');
   writeln ('Нажмите любую клавишу для выхода из подменю');
   textcolor (white);
 end;
 
 procedure aboutcreator;
  begin
   clrscr;
   textcolor (lightred);
   writeln ('Подсистема создана студентом IV курса Приборостроительного факультета');
   writeln ('Топал Артуром Вадимовичем');
   writeln ('По любым вопросам, связанным с подсистемой можно обратиться по e-mail [email]alkatrazz@i.ua[/email]');
   textcolor (white);
  end;
 
 procedure punct1;
  var a:array [1..5,1..6] of string[15];
  a1:array [1..5,1..6] of integer;
  a2:array [1..6,1..7] of real;
  f1:text;
  i,j,i1,j1,b,d,sm:integer;
  p,l,st,t1:real;
  s,put:string[15];
  {st:string[6];}
  label k1,k2,k3,k4,k5,k6,k7,k8;
  begin
  clrscr;
  writeln ('Круглое наружное шлифование с продольной подачей');
  readkey;
  k2:clrscr;
  writeln ('Выберите материал заготовки');
  writeln ('1 Стали конструкционные (углеродистые и легорованные)');
  writeln ('2 Стали жаропрочные и нержавеющие');
  writeln ('3 Чугун и бронзы');
  key:=readkey;
  clrscr;
  if key='1' then begin
   k1:clrscr;
   writeln ('Выберите твердость материала заготовки');
   writeln ('1 HRC<30');
   writeln ('2 3050');
   key:=readkey;
   if key='1' then j:=1
   else if key='2' then j:=2
   else if key='3' then j:=3
   else goto k1;
  end
  else if key='2' then j:=4
  else if key='3' then j:=5
  else goto k2;
  k3:clrscr;
  writeln ('Выберите требуемый квалитет точности детали');
   writeln ('1 - 5');
   writeln ('2 - 6');
   writeln ('3 - 7');
   writeln ('4 - 8');
   key:=readkey;
   if key='1' then i:=1
   else if key='2' then i:=2
   else if key='3' then i:=3
   else if key='4' then i:=4
   else goto k3;
   write ('Введите длину обработки L=');readln (l);
   write ('Введите припуск на диаметр 2П=');readln (p);
   assign (f1,'files\file1.txt');
   reset (f1);
   for i1:=1 to 4 do begin
    for j1:=1 to 5 do begin
      readln (f1,a[i1,j1]);
    end;
   end;
  close (f1);
  s:=a[i,j];
  for i:=1 to length(s) do
  if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
  else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
  else if ord(s[i])=168 then s[i]:=chr(ord(240))
  else if ord(s[i])=184 then s[i]:=chr(ord(241));
  clrscr;
  k4:writeln ('Выберите ширину круга');
  writeln ('1 40 мм');
  writeln ('2 50 мм');
  writeln ('3 63 мм');
  writeln ('4 75 мм');
  key:=readkey;
  if key='1' then begin i:=1;b:=40;end
  else if key='2' then begin i:=2;b:=50;end
  else if key='3' then begin i:=3;b:=63;end
  else if key='4' then begin i:=4;b:=70;end
  else goto k4;
  writeln ('Выберите диаметр шлифования в мм до');
  textcolor (lightred);
  writeln ('ПРИМЕЧАНИЕ: для шлифовального круга (ШК) с шириной 63 мм не может быть');
  writeln ('диаметр шлифования меньше 25 мм; а для ШК с шириной 75 мм - 25 мм;40 мм. ');
  textcolor (white);
  writeln ('1 25');
  writeln ('2 40');
  writeln ('3 63');
  writeln ('4 100');
  writeln ('5 160');
  writeln ('6 250');
  writeln ('7 320');
  key:=readkey;
  if key='1' then begin j:=1;d:=25;end
  else if key='2' then begin j:=2;d:=40;end
  else if key='3' then begin j:=3;d:=63;end
  else if key='4' then begin j:=4;d:=100;end
  else if key='5' then begin j:=5;d:=160;end
  else if key='6' then begin j:=6;d:=250;end
  else if key='7' then begin j:=7;d:=320;end
  else goto k4;
  if (i=3) and (j=1) or (i=4) and (j=1) or (i=4) and (j=2) then
  begin
   writeln ('Неверно введена ширина круга или диаметр шлифования. Введите данные заново.');
   goto k4;
  end;
  assign (f1,'files\file2.txt');
   reset (f1);
   for i1:=1 to 4 do begin
    for j1:=1 to 7 do begin
      readln (f1,a1[i1,j1]);
    end;
   end;
  close (f1);
sm:б[i,j];
k5:clrscr;
{writeln ('Продольная минутная подача Sm в мм/мин=',sm);}
writeln ('Выберите класс точности');
writeln ('1 1-2');
writeln ('2 3');
writeln ('3 4-5');
key:=readkey;
if key='1' then i:=1
else if key='2' then i:=2
else if key='3' then i:=3
else goto k5;
if sm=2000) and (sm=3200) and (sm=4500) and (sm<=6000) then assign (f1,'files\file6.txt');
reset (f1);
for i1:=1 to 3 do begin
for j1:=1 to 7 do begin
readln (f1,a2[i1,j1]);
end;
end;
close (f1);
st:в[i,j];
k6:clrscr;
writeln ('Выберите вес детали в кг до');
writeln ('1 - 1');
writeln ('2 - 3');
writeln ('3 - 5');
writeln ('4 - 8');
writeln ('5 - 12');
writeln ('6 - 20');
writeln ('7 - 30');
key:=readkey;
if key='1' then j:=1
else if key='2' then j:=2
else if key='3' then j:=3
else if key='4' then j:=4
else if key='5' then j:=5
else if key='6' then j:=6
else if key='7' then j:=7
else goto k6;
k7:clrscr;
writeln ('Выберите способ закрепления заготовки');
writeln ('1 В центрах с надеванием хомутика');
writeln ('2 В центрах без надевания хомутика');
writeln ('3 В центрах с люнетом с надеванием хомутика (длина детали 1000 мм)');
writeln ('5 В центрах с люнетом без надевания хомутика (длина детали 1000 мм)');
textcolor (lightgreen);
key:=readkey;
if key='1' then i:=1
else if key='2' then i:=2
else if key='3' then i:=3
else if key='4' then i:=4
else if key='5' then i:=5
else if key='6' then i:=6
else goto k7;
assign (f1,'files\file7.txt');
reset (f1);
for i1:=1 to 6 do begin
for j1:=1 to 7 do begin
readln (f1,a[i1,j1]);
end;
end;
close (f1);
t1:в[i,j];
clrscr;textcolor (lightgreen);
writeln ('Характеристика шлифовального круга ',s);
writeln ('Скорость вращения шлифовального круга 35 м/сек');
writeln ('Продольная минутная подача Sm в мм/мин=',sm);
writeln ('Поперечная подача на ход стола St в мм/ход=',st:2:5);
writeln ('Глубина шлифования t=',(p/2):2:2,' мм');
writeln ('Длина шлифования равна L=',(l-0.2*b):2:1,' мм');
writeln ('Основное время Tо=',(l*p/(sm*st*2)):2:3,' мин');
writeln ('Вспомогательное время tуст=',(t1):2:3,' мин');
writeln ('Оперативное время Tоп=',((l*p/(sm*st*2))+t1):2:3,' мин');
writeln ('Время на обслуживание tобсл=',((l*p/(sm*st*2))*0.01):2:3,' мин');
writeln ('Время на отдых и личные потребности tолп=',((l*p/(sm*st*2))*0.04):2:3,' мин');
writeln ('Норма штучного времени на операцию Tшт=',((l*p/(sm*st*2))*0.01+((l*p/(sm*st*2))*0.04
+(l*p/(sm*st*2)))):2:3,' мин');
textcolor (lightred);
writeln ('Сохранить результат? Y-1/N-2');
key:=readkey;
if key='1' then begin
writeln ('Введите путь,название и расширение для сохранения в формате I:\Pascal\result.txt');
readln (put);
assign(f1,put);
rewrite (f1);
writeln (f1,'Характеристика шлифовального круга ',s);
writeln (f1,'Скорость вращения шлифовального круга 35 м/сек');
writeln (f1,'Продольная минутная подача Sm в мм/мин=',sm);
writeln (f1,'Поперечная подача на ход стола St в мм/ход=',st:2:5);
writeln (f1,'Глубина шлифования t=',(p/2):2:2,' мм');
writeln (f1,'Длина шлифования равна L=',(l-0.2*b):2:1,' мм');
writeln (f1,'Основное время Tо=',(l*p/(sm*st*2)):2:3,' мин');
writeln (f1,'Вспомогательное время tуст=',(t1):2:3,' мин');
writeln (f1,'Оперативное время Tоп=',((l*p/(sm*st*2))+t1):2:3,' мин');
writeln (f1,'Время на обслуживание tобсл=',((l*p/(sm*st*2))*0.01):2:3,' мин');
writeln (f1,'Время на отдых и личные потребности tолп=',((l*p/(sm*st*2))*0.04):2:3,' мин');
writeln (f1,'Норма штучного времени на операцию Tшт=',((l*p/(sm*st*2))*0.01+((l*p/(sm*st*2))*0.04
+(l*p/(sm*st*2)))):2:3,' мин');close (f1);end
else if key='2' then goto k8
else goto k8;
k8: end;
 
 
procedure punct2;
var a:array [1..5,1..6] of string[15];
a1:array [1..5,1..6] of integer;
a2:array [1..6,1..7] of real;
f1:text;
i,j,i1,j1,b,d,sm:integer;
p,l,st,t1:real;
s,put:string[15];
{st:string[6];}
label k1,k2,k3,k4,k5,k6,k7,k8;
begin
clrscr;
writeln ('Круглое наружное шлифование с радиальной подачей');
readkey;
k2:clrscr;
writeln ('Выберите материал заготовки');
writeln ('1 Стали конструкционные (углеродистые и легорованные)');
writeln ('2 Стали жаропрочные и нержавеющие');
writeln ('3 Чугун и бронзы');
key:=readkey;
clrscr;
if key='1' then begin
k1:clrscr;
writeln ('Выберите твердость материала заготовки');
writeln ('1 HRC<30');
writeln ('2 3050');
key:=readkey;
if key='1' then j:=1
else if key='2' then j:=2
else if key='3' then j:=3
else goto k1;
end
else if key='2' then j:=4
else if key='3' then j:=5
else goto k2;
k3:clrscr;
writeln ('Выберите требуемый квалитет точности детали');
writeln ('1 - 5');
writeln ('2 - 6');
writeln ('3 - 7');
writeln ('4 - 8');
key:=readkey;
if key='1' then i:=1
else if key='2' then i:=2
else if key='3' then i:=3
else if key='4' then i:=4
else goto k3;
assign (f1,'files\file1.txt');
reset (f1);
for i1:=1 to 4 do begin
for j1:=1 to 5 do begin
readln (f1,a[i1,j1]);
end;
end;
close (f1);
s:=a[i,j];
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
clrscr;
write ('Введите длину обработки L=');readln (l);
write ('Введите припуск на диаметр 2П=');readln (p);
k4:writeln ('Выберите ширину круга');
writeln ('1 40 мм');
writeln ('2 50 мм');
writeln ('3 63 мм');
writeln ('4 75 мм');
key:=readkey;
if key='1' then begin i:=1;b:=40;end
else if key='2' then begin i:=2;b:=50;end
else if key='3' then begin i:=3;b:=63;end
else if key='4' then begin i:=4;b:=70;end
else goto k4;
writeln ('Выберите диаметр шлифования в мм до');
textcolor (lightred);
writeln ('ПРИМЕЧАНИЕ: для шлифовального круга (ШК) с шириной 63 мм не может быть');
writeln ('диаметр шлифования меньше 25 мм; а для ШК с шириной 75 мм - 25 мм;40 мм. ');
textcolor (white);
writeln ('1 25');
writeln ('2 40');
writeln ('3 63');
writeln ('4 100');
writeln ('5 160');
writeln ('6 250');
writeln ('7 320');
key:=readkey;
if key='1' then begin j:=1;d:=25;end
else if key='2' then begin j:=2;d:=40;end
else if key='3' then begin j:=3;d:=63;end
else if key='4' then begin j:=4;d:=100;end
else if key='5' then begin j:=5;d:=160;end
else if key='6' then begin j:=6;d:=250;end
else if key='7' then begin j:=7;d:=320;end
else goto k4;
if (i=3) and (j=1) or (i=4) and (j=1) or (i=4) and (j=2) then
begin
writeln ('Неверно введена ширина круга или диаметр шлифования. Введите данные заново.');
goto k4;
end;
assign (f1,'files\file2.txt');
reset (f1);
for i1:=1 to 4 do begin
for j1:=1 to 7 do begin
readln (f1,a1[i1,j1]);
end;
end;
close (f1);
sm:б[i,j];
k5:clrscr;
writeln ('Выберите класс точности');
writeln ('1 1-2');
writeln ('2 3');
writeln ('3 4-5');
key:=readkey;
if key='1' then i:=1
else if key='2' then i:=2
else if key='3' then i:=3
else goto k5;
if sm=2000) and (sm=3200) and (sm=4500) and (sm<=6000) then assign (f1,'files\file6.txt');
reset (f1);
for i1:=1 to 3 do begin
for j1:=1 to 7 do begin
readln (f1,a2[i1,j1]);
end;
end;
close (f1);
st:в[i,j];
k7:writeln ('Выберите способ закрепления заготовки');
writeln ('1 В центрах с надеванием хомутика');
writeln ('2 В центрах без надевания хомутика');
writeln ('3 В центрах с люнетом с надеванием хомутика (длина детали 1000 мм)');
writeln ('5 В центрах с люнетом без надевания хомутика (длина детали 1000 мм)');clrscr;textcolor (lightgreen);
key:=readkey;
if key='1' then i:=1
else if key='2' then i:=2
else if key='3' then i:=3
else if key='4' then i:=4
else if key='5' then i:=5
else if key='6' then i:=6
else goto k7;
assign (f1,'files\file7.txt');
reset (f1);
for i1:=1 to 6 do begin
for j1:=1 to 7 do begin
readln (f1,a[i1,j1]);
end;
end;
close (f1);
k6:writeln ('Выберите вес детали в кг до');
writeln ('1 - 1');
writeln ('2 - 3');
writeln ('3 - 5');
writeln ('4 - 8');
writeln ('5 - 12');
writeln ('6 - 20');
writeln ('7 - 30');
key:=readkey;
if key='1' then j:=1
else if key='2' then j:=2
else if key='3' then j:=3
else if key='4' then j:=4
else if key='5' then j:=5
else if key='6' then j:=6
else if key='7' then j:=7
else goto k6;
t1:в[i,j];
clrscr;textcolor (lightgreen);
writeln ('Характеристика шлифовального круга ',s);
writeln ('Скорость вращения шлифовального круга 35 м/сек');
writeln ('Продольная минутная подача Sm в мм/мин=',sm);
writeln ('Поперечная подача на ход стола St в мм/ход=',st:2:5);
writeln ('Глубина шлифования t=',(p/2):2:2,' мм');
writeln ('Длина шлифования равна L=',(l-0.2*b):2:1,' мм');
writeln ('Основное время Tо=',(l*p/(sm*st*2)):2:3,' мин');
writeln ('Вспомогательное время tуст=',(t1):2:3,' мин');
writeln ('Оперативное время Tоп=',((l*p/(sm*st*2))+t1):2:3,' мин');
writeln ('Время на обслуживание tобсл=',((l*p/(sm*st*2))*0.01):2:3,' мин');
writeln ('Время на отдых и личные потребности tолп=',((l*p/(sm*st*2))*0.04):2:3,' мин');
writeln ('Норма штучного времени на операцию Tшт=',((l*p/(sm*st*2))*0.01+((l*p/(sm*st*2))*0.04
+(l*p/(sm*st*2)))):2:3,' мин');
textcolor (lightred);
writeln ('Сохранить результат? Y-1/N-2');
key:=readkey;
if key='1' then begin
writeln ('Введите путь,название и расширение для сохранения в формате I:\Pascal\result.txt');
readln (put);
assign(f1,put);
rewrite (f1);
writeln (f1,'Характеристика шлифовального круга ',s);
writeln (f1,'Скорость вращения шлифовального круга 35 м/сек');
writeln (f1,'Продольная минутная подача Sm в мм/мин=',sm);
writeln (f1,'Поперечная подача на ход стола St в мм/ход=',st:2:5);
writeln (f1,'Глубина шлифования t=',(p/2):2:2,' мм');
writeln (f1,'Длина шлифования равна L=',(l-0.2*b):2:1,' мм');
writeln (f1,'Основное время Tо=',(l*p/(sm*st*2)):2:3,' мин');
writeln (f1,'Вспомогательное время tуст=',(t1):2:3,' мин');
writeln (f1,'Оперативное время Tоп=',((l*p/(sm*st*2))+t1):2:3,' мин');
writeln (f1,'Время на обслуживание tобсл=',((l*p/(sm*st*2))*0.01):2:3,' мин');
writeln (f1,'Время на отдых и личные потребности tолп=',((l*p/(sm*st*2))*0.04):2:3,' мин');
writeln (f1,'Норма штучного времени на операцию Tшт=',((l*p/(sm*st*2))*0.01+((l*p/(sm*st*2))*0.04
+(l*p/(sm*st*2)))):2:3,' мин');close (f1);
end
else if key='2' then goto k8
else goto k8;
k8:writeln;
end;
 
begin
lab1:clrscr;
menu1;
if key='1' then goto 11
else if key='2' then goto 12
else if key='3' then goto 13
else if key='4' then exit
else goto lab1;
11:clrscr;
menu2;
if key='1' then goto l1
else if key='2' then goto l2
else if key='3' then goto l3
else if key='4' then goto l4
else if key='5' then goto l5
else if key='6' then goto l6
else if key='7' then goto l7
else if key='8' then goto l8
else if key='9' then goto l9
else if key='0' then goto l10
else if key='e' then goto l11
else if key='w' then goto l12
else if key='q' then exit
else goto 11;
l1:punct1;readkey;goto lab1;
l2:punct2;readkey;goto lab1;
l3:;
l4:;
l5:;
l6:;
l7:;
l8:;
l9:writeln('the end');
l10:writeln('');
l11:;
l12:;
12:aboutpro;readkey;goto lab1;
13:aboutcreator;readkey;goto lab1;
readkey;
end.