delphi множинний тип даних

[Дорош]

Задано дві непорожні послідовності цілих чисел, які містять числа в інтервалі від 1 до 50. Кожна з послідовностей закінчується нулем. Знайти множину таких чисел, які лише раз зустрічаються в другій послідовності й відсутні в першій.

виправте помилку в жовтому рядку. Будь ласка.

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

var s1, s2 : set of 0..50;
i : byte;
n : integer;
begin
writeln('*** 0 - oznaka zakinchennja rjadka! ***');
writeln('Vvedit cherez probil zili chusla pershoi poslidovnosti');
s1:=[]; n:=-1;
repeat
read(n);
if (n>0) and (n<50) then
if not(n in s1) then
Include(s1,n)
else
Exclude(s1,n);
until (n=0) and (s1<>[]);

writeln('Vvedit cherez probil zili chusla drugoi poslidovnosti');
s2:=[]; n:=-1;
repeat
read(n);
if (n>0) and (n<50) then
if not(n in s2) then
Include(s2,n)
else
Exclude(s2,n);
until (n=0) and (s2<>[]);

writeln('Mnozuna parnuh chisel, sho lushe raz zustrichajutsja v oboh poslidovnostjah');
for i:=1 to 50 do
if (i in (s2-s1) ) and not(i in s1) then
write(i,' ');
readln;
readln
end.

[Дорош]

if (i in s2) and not(i in s1) then
сам вже додумався