Почему программа не выводит множество на экран?

Question

[SevaSava]

Почему программа не выводит множество А на экран?
И почему когда вводишь число, чтобы проверить, состоит ли оно в множестве, программа пишет, что не состоит - какое бы число не ввёл? Где я напортачил?

program mnozhexp;
uses crt;

var N: byte; // число от пользователя на проверку
A: set of 1..10;
B: set of 5..15;
C: set of 1..25;

//procedure NumSets(var num: byte); // процедура проверки вхождения числа в множество
procedure NumSets; // процедура проверки вхождения числа в множество
var CharInSets: char;
num: byte;
begin
Write('Введите число: ');
Readln(num);
if num in A then
Writeln('Число', num, ' входит в множество А.')
else
Writeln('Указанное число не входит в множество A.');
if num in B then
Writeln('Число', num, ' входит в множество B.')
else
Writeln('Указанное число не входит в множество B.');
if num in C then
Writeln('Число', num, ' входит в множество C.')
else
Writeln('Указанное число не входит в множество C.');
end;

procedure WriteSets; // процедура вывода множеств
var i,j: byte;
begin
Writeln('Множество A: ');
for i:=1 to 10 do
if i in A then
Write(i, '');
Writeln;
end;

begin
clrscr;
NumSets;
WriteSets;

end.

Answer 1

[kalapanga]

Вы только объявили переменные типа множество с ограничениями на диапазон возможных значений, но не присвоили этим переменным никакого значения. Поэтому А, В и С сейчас это пустые множества. Добавьте что-то типа:
A := [1..10]; и т.д.

Comments

[SevaSava]

Благодарю!

Answer 2

[Hemul GM]

A: set of 1..10; - означает, переменная А типа сет, значения которого должны быть от 1 до 10.

Comments

[SevaSava]

Благодарю!