Показать сообщение отдельно
  #11  
Старый 01.04.2013, 14:13
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Пусть метка будет называться L1, L2
Код:
var ...
label L1, L2;

Код:
L1:
 Begin
   Writeln('Вы уверены? (Y/N)');
   if readkey='y' then GOTO L2;
 End;