[asus a9rp]

lxa85, Огромнейшее спасибо! Всё работает.

Cтуденчество, совсем думать обленилось! »

Извините, но Вы меня просто не правильно поняли. У меня просто ничего не получалось как-бы я не пробовал и не понимал, в чём проблема. Вот и пришлось попросить у Вас. То, что было написано перед Вами давало тот же результат. Оказалось, что у меня было промерно так:

Код:

If a=10 Then
 begin
 end;
Case y of
end;

А надо было так:

Код:

If a=10 Then
 begin
Case y of
end;
end;

Теперь я всё понял.
Последний вопрос, но уже не по программе, а по самому Паскалю.
При копитовании из Паскаля в ОСь или наоборот, русские буквы заменяются вопросиками. Возможно ли это изправить?

П.С. Я не студент, а шольник (8-й класс).