НАйти ошибку в задаче

[dragun4ik]

program set_;
uses crt;
var s1,s2,s3,s4: set of byte;
a:array[1..10] of integer;
i:integer;
begin
clrscr;
s3:=[3,3,7,7];
writeln('vvedite  element 1-go mnogecTBA ');
for i:=1 to 10 do
 begin
 read(a[i]);
 s1:=s1+a[i];
 end;
writeln('vvedite  element 2-go mnogecTBA ');
for i:=1 to 10 do
 begin
 read(a[i]);
 s2:=s2+a[i];
 end;
s4:=s1+s2;
if s3 in s4 then writeln('prinadlegit') else
writeln('ne prinadlegit');
readln;
end.

Чет я не пойму в чем ошибка Объясните плиз
пишет ошибка 26 тайп мисматч

[ZaRDaK]

s1 - тип byte, array a - тип integer.
integer занимает больше памяти, чем byte, именно из-за невозможности помесить больший обьём памяти в меньший выдаёт ошибку.

a:array[1..10] of byte;

[dragun4ik]

чет изменил а в итоге прога не работает все тоже пишет МОжет я не так написал программу???
Передо мной стояла задача ввести 2 множества с клавиатуры объеденить их и проверить принадлежит ли множество S3 их объединению

когда тип множества пишеш integer прога выдает ошибку 23 "Базовый тип множества нарушает границы" я чет не разбирусь что это занчит Может интежер к множествам не подходит

[ZaRDaK]

да, действительно не подходит, забыл.
Меняй тип array of integer на array of byte

[dragun4ik]

ДА не уже все перепробывал не работает программа

[ZaRDaK]

program set_;
uses crt;
var s1,s2,s3,s4: set of byte;
a:array[1..10] of integer;
i:integer;
b : boolean;
begin
s3:=[3,3,7,7];
writeln('vvedite element 1-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s1:=s1 + [a[i]];
end;
writeln('vvedite element 2-go mnogecTBA ');
for i:=1 to 10 do
begin
read(a[i]);
s2:=s2+[a[i]];
end;
s4:=s1+s2;
if s3 <= s4 then writeln('prinadlegit') else
writeln('ne prinadlegit');
readln;
end.

[dragun4ik]

Спасибо за помощь