Помогите пожалуйста найти ошибку в программе...

[Igor]

Program Mnozhestva;
uses crt;
var
S1,S2,S3 : Set Of 1..100;
i,n,k : integer;
begin
clrscr;
S1:=[];
Writeln('Vvedite elementu mnozhestva A:');
repeat
readln(k);
S1:=S1+[k];
S2:=[];
Writeln('Vvedite elementu mnozhestva B:');
Repeat
readln(k);
S2:=S2+[k];
S3:=S1+S2;
For i:=1 to 100 do
if i in S3 then
Write(i,' ');
readln;
end.


Выбивает ошибку Error 113: Error in statement. Но я не понимаю в чем моя ошибка...Помогите пожалуйста...

[Фантом]

А кто будет закрывать два открытых цикла repeat?

[Igor]

пашет-))Фантом, большое спасибо!-))