T, Pascal - rextester

Language: Layout:

//Baeza, Virginia com 110

program TP2;
uses crt,sysutils;

var ch, salir: char;
    intento, clavecorrecta, codciudad, nomempresa, codempresa, mail, direccion: string;
    numintento, numopcion, ROS, CBA, BA, telefono: integer;

procedure EMPRESAS;
begin
   password;
   menu_empresas_desarrolladoras;
end;

procedure password;
begin
  clavecorrecta:= '1234';
  numintento:= 0;
  ClrScr;
  Repeat
  writeln('INGRESE PASSWORD: ');
  ch:= readkey;
  While (ch<>#13) do
  Begin
   intento:=intento + ch;
   write('*');
   ch:=readkey
  End;
  If (intento=clavecorrecta) then
   begin
    ClrScr;
    writeln('clave correcta');
   end
  Else
   begin
     ClrScr;
     writeln('clave incorrecta');
     numintento:= numintento+1;
     intento:='';
   end;
  Until (intento=clavecorrecta) or (numintento=3);
readkey;
end;

procedure menu_empresas_desarrolladoras;
begin
  writeln('|============= MENU EMPRESAS DESARROLLADORAS =============|');
  writeln('|                                                         |');
  writeln('|    1-ALTA DE CIUDADES                                   |');
  writeln('|    2-ALTA DE EMPRESAS                                   |');
  writeln('|    3-ALTA DE PROYECTOS                                  |');
  writeln('|    4-ALTA DE PRODUCTOS                                  |');
  writeln('|    0-MENU PRINCIPAL                                     |');
  writeln('|                                                         |');
  writeln('|=========================================================|');
  repeat
    writeln('Selecciones una opcion');
    readln(numopcion);
  until (numopcion>=0) and (numopcion<=4);
end;
 
 begin
 repeat
 menu_empresas_desarrolladoras;
  case numopcion of
   1:alta_ciudad;
   2:alta_empresa;
   3:alta_proyectos;
   4:alta_productos;
   end;
 until numopcion=0;
 end;
 
procedure CLIENTES();
begin
end;

begin
     tEXTcOLOR(10);
     MENU();
     while (numopcion>=0) and (numopcion<=2) do
     begin
        case numopcion of
        1:begin
          clrscr;
          EMPRESAS;
          clrscr;
          end;
        2:begin
          clrscr;
          CLIENTES;
          clrscr;
          end;
        0:
     end;
     MENU;
end;
end.

Show compiler warnings [ + ] Show input
Compilation time: 0.24 sec, absolute service time: 0,46 sec