Programa de citas

 program cita;
  uses crt;
         var op:char;
procedure Ab;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(lightgray);
       writeln('Ir al cine con Abigail');
       end;
procedure Al;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(white-red);
       writeln('Ir a un restaurante con Alma');
       end;
procedure Va;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(black);
       writeln('Ir a bailar con Valeria');
       end;
procedure Da;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(magenta);
       writeln('Ir por un helado con Daniela');
       end;
   begin
  repeat
       textmode(lo(lastmode)+font8x8);
       textcolor(brown);
       textbackground(blue);
      write(' Programa de Citas ');
      writeln('Elija una opci•n:  ');
     writeln('1)Abigail');
     writeln('2)Alma');
     writeln('3)Valeria');
     writeln('4)Daniela');
     writeln('5)ninguna');
     readln(op);
     case op of
     '1':Ab;
     '2':Al;
     '3':Va;
     '4':Da;
     end;
     until op ='5';
  end.