Хакер, Помогите плzz Опции

[Shuruper]

Я недавно начал делать игру хакер. Дык вот у мну появилась такая загвоздка я хотел занести статус игрока и профессию как переменную и вот что примерно у меня получилось:
{stat-статус}
4:Stat:='Гуру';
3:Stat:='Хакер';
2:Stat:='Юзер';
1:Stat:='Ламр';
Так вот что получается при получении новой профессии команда goto x; перемещает игрока в верх по статусу но получается вместо того что я хотел:
Stat Ламер
Stat ЛамерЮзер
Stat ЛамерЮзер хакер
Что делать?


З.Ы. Процедуры не предлогать!

[renesko1]

Ну, во-первых, goto считается злом, но раз решил делать, то попробуй сначала присвоить
stat := ''; а потом goto ... ; Хотя goto зло. Попробуй решить по другому. Например статус число от 1 до 4.
А при написание статуса игроку use через case stat of ... .

[Shuruper]

Спасибо попробую

[renesko1]

case stat of
1:writeln(' ... ');
2:writeln('.....');
3:writeln('.....');
end ;
На всякий случай я имел в виду вот такой способ.