Архив типа shift mode средствами SysLibFile

[Малышев Олег]

Я бы сделал
case i of
1: i:=+1;
2: i:=+1;

n:

end_case