pares e impares

Program pareseimpares;
Uses WinCrt;
Var i,op:integer;
Begin
Writeln('Menú');
Writeln('');
Writeln('Pulse 1 para los números pares');
Writeln('Pulse 2 para los n´meros impares');
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
Begin
ClrScr;
FOR i:=1 to 10 do
IF (i mod 2)=1 then
Writeln(i);
End;
END.