Не разберу где ошибся, по моему много напутал

[Forro]

Program Mnosch;
Type mnosch=set of ‘A’..’Z’;
Var
S,A:mnosch;
S1,a1,m:char;
Otwet:integer;
Begin
S:=[];
Repeat
	Writeln(‘Vvedite element mnoschestva S’);
	Readln(s1);
	S:=S+[s1];
	Writeln(‘Budite esche vvodit element? (Yes-1/No-0)’);
	Readln(otwet);
Until (otwet=0);
Repeat
	Writeln(‘Vvedite element mnoschestva A’);
	Readln(a1);
	A:=A+[a1];
	Writeln(‘Budite esche vvodit element? (Yes-1/No-0)’);
	Readln(otwet);
Until (otwet=0);
Writeln(‘Vvedite element dlya prowerki na prinadleschnost’);
Readln(m);
If ((m in S) and (m in A))
	Then writeln(‘element ‘,m,’prinadleschit k oboim mnoschestwam’)
	Else
	begin
		If m in S then 
Writeln(‘element ‘,m,’ prinadleschit k mnoschestwu S’)
Else
If m in A then
Writeln(‘element ‘,m,’ prinadleschit k mnoschestwu A’)
Else 
Writeln(‘element ne prinadleschit k dannim mnoschestvam’);
	End;
Readln;
End.

Тут что-то намутил терь сам не разберусь.

Цель - Осуществить ввод элементов двух заданных множеств с клавиатуры. Проверить принадлежность элементов их объединению.

Подкорректируйте плиз есле возможно.

[Makarov]

Readln(s1);
S:=S+[s1];
Вы вводите элемент S1. Как я понимаю к массиву S прибавляете значение элемента S1?

Если у вас например массив
var
S:array ['A'....'Z'] of char;
... Получается что в массиве 25 элементов. Символ 'A' в таблице ASCII имеет код 65, а символ 'Z' код 90. Вы не можите прибавить в этому массиву еще элемент, т.к. размерность у вас уже определена!

[Forro]

Короче проблема у меня с добавлением новых ел-тов в множество. Биг спс

[Stilet]

Так пробуй

Type mnosch=set of 'A'..'Z';
Var
S,A:mnosch;
S1,a1,m:char;
Otwet:integer;
Begin
S:=[];
Repeat
Writeln('Vvedite element mnoschestva SТ');
Readln(s1);
S:=S+[s1];
Writeln('Budite esche vvodit element? (Yes-1/No-0)Т');
Readln(otwet);
Until (otwet=0);
Repeat
Writeln('Vvedite element mnoschestva A');
Readln(a1);
A:=A+[a1];
Writeln('Budite esche vvodit element? (Yes-1/No-0)');
Readln(otwet);
Until (otwet=0);
Writeln('Vvedite element dlya prowerki na prinadleschnost');
Readln(m);
If ((m in S) and (m in A))
Then writeln('element С,m,Тprinadleschit k oboim mnoschestwam')
Else
begin
If m in S then
Writeln('element ',m,' prinadleschit k mnoschestwu S')
Else
If m in A then
Writeln('element ',m,'prinadleschit k mnoschestwu A')
Else
Writeln('element ne prinadleschit k dannim mnoschestvam');
End;
Readln;
End.

Как я понимаю к массиву S

Какому еще массиву??

[Forro]

Что-то не то. (что здесь исправлено? Я не найду.)
Будь добр, "ткни насом" меня в то место где "нагадил" (хоть убей не вижу разницу)

[Stilet]

Ну во-превых в твоем коде первая строчка плоха - имя проги и тип множества совпадают
Во-вторых у меня прога работает, я ввожу аглицкие буквы в верхнем регистре (A Z F) (A C Y) и получаю ответ A входит
Значит ты чет нето вводиш.

[Forro]

Биг спс, разобрался, просто тупил я жостко.