Есть множество S1 от 1 до 200. Записать во множество S2 все числа из S1 кратные 6 — Pascal(Паскаль)

program lab10zax;
uses crt;
var s1,s2:set of 1..200;
    a,i,k:byte;
begin
clrscr;
writeln('Заполните множество числами от 1 до 200, окончание ввода 0:');
s1:=[];
repeat
 repeat
  readln(a);
 until a in [0..200];
 if a<>0 then s1:=s1+[a];
until a=0;
writeln('Множество S1:');
s2:=[];
for i:=1 to 200 do
if i in s1 then
 begin
  write(i,' ');
  if i mod 6=0 then s2:=s2+[i];
 end;
writeln;
writeln;
if s2=[] then write('Чисел, кратных 6 нет')
else
 begin
  writeln('Множество S2 чисел, кратных 6:');
  for i:=1 to 200 do
  if i in s2 then write(i,' ');
 end;
end.