Program colapso...................

Program colapso;
Uses WinCrt;
Var i,op,cont,j:integer;
Begin

Writeln ('****Menú repita para Hola****');
Writeln ('');
Writeln ('1-Ordenar por números pares');
Writeln ('2-Ordenar por números impares');
Writeln ('3-Ordenar por números primos');
Readln (op);

If op=1 then
Begin
ClrScr;
For i:=1 to 10 do
If (i mod 2)=0 then
Writeln (i);
End;

If op=2 then
writeln(j);
Begin
ClrScr;
For i:=1 to 10 do
If (i mod 2)=1 then
Writeln (i);
End;

If op=3 then
Begin
ClrScr;
for j:=1 to 2 do
writeln(j);
For i:=3 to 10 do
If ( i mod 2)=1 then
if (i<>9)then
writeln( i);

End;
End.