Переход из процедуры в главную прогу, по меткам Опции

[>hamka<]

Можно из процедуры прыгнуть на метку, кот. в главной программе. Или ее надо описывать в параметрах передаваемой процедуры. А если нельзя, то нет ли каких нибудь приемчиков, чтобы перейти на метку не процедурную?

[Romtek]

Хочу проверку на число оформить как процедуру.

Код

Procedure InputN (var N: integer);
var
 erс: integer;
begin
 repeat
   write ('Введите целое число: ');
   {$I-}
   readln (N);
   {$I+}
   erc :=IOresult;
   if erc <> 0 then
      writeln ('Число должно быть *целым*');
 until erc = 0;
end;

Сообщение отредактировано: Romtek - 3.03.2005 3:01