Вызов процедуры через case Опции

[KIngSpades]

Здраствуйте, форумчани!
Я недавно занимаюсь Паскалем и у меня появилась одна проблема.
Есть две процедуры. При создании программы проверялась работа при одной процедуре. ПРограмма работала. После создания второй процедуры я ввел конструкцию case такого типа:

Код

Program ...
var x:char; a,b,c,d,f:real;
Procedure1(a,b:real; var c:real);
begin
...
end;
Procedure2(c,d:real; var f:real);
begin
...
end;
begin
readln(x);
case x of
'Y':procedure1(a,b,c);
'Z':procedure2(c,d,f);
end;
readln
end.

При отсутсвии case и использования одной процедуры программа работает отлично.
При использовании программы, приведенной выше программа считывает Х и после етого должна запускаться процедура 1 (или 2). Но после ввода каких либо данных окно программы закрываеться.
Помогите пожалуйста решить ету проблему.
Надеюсь на понимание.

P.S Процедура 2 аналогична Процедуре 1, но только с другими данными.

Сообщение отредактировано: KIngSpades - 13.07.2011 11:24

[IUnknown]

Во-первых, так быть не должно. То есть, программа должна нормально работать. Почему она вылетает - это тебе предстоит выяснить. Пройди по программе пошагово (через F7), отладчиком, и выясни, где именно она валится, на какой строке (подробнее об отладке можно почитать здесь)... Я надеюсь, все возможные проверки в Options -> Compiler -> Runtime Errors включены? Это тоже может помочь обнаружить проблему...

А во-вторых, не совсем понятно. Если процедуры одинаковые, и только данные разные, то зачем их две? Передавай в том же Case в одну и ту же процедуру разные данные. Для этого подпрограммы и существуют. Какой смысл делать несколько версий, отличающихся только названиями параметров?