Вызов процедуры через 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]

Все работает совершенно нормально. Запускается программа:

F
10
20
текст­
37 %
текст­
нет

, или

E
150
200
Текст
 33 %
Текст
Нет

(FPC 2.4.4, если что, но причин не работать под Турбо Паскалем не видно. Будет точно то же самое).

Уж не знаю, что ты там вводишь, чтоб оно не работало. Буквы точно в верхнем регистре? Нулевых значений нет?

К сожалению, отладака не сработала

А ты проходил пошагово? Что значит не сработала? Строка за строкой жмешь F7, и говоришь, на какой именно строке программа ведет себя не так, как ожидалось. Ты что, хотел, чтоб тебе сразу появилось сообщение, что у тебя в такой-то строке ошибка? Этого не будет...

Пойми, я не телепат, я не знаю, что именно ты вводишь, как именно реагирует твоя программа.

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