SoloCodigo

QUE PUEDO UTILIZAR PARA GUARDAR DATOS Y DESPUES COMPARARLOS EN ESTE PROGRAMA GRACIAS
program HISTORIMED;

uses crt; {Necesaria para usar ClrScr}

var
  opcion: Integer;
  salir: Boolean;

procedure Primero;
begin
  WriteLn('DESEA INGRESAR HISTORIA DEL(LA) PACIENTE');{ESTA SERIA LA OPCION PARA INGRESAR DATOS DE PACIENTES}
  WriteLn('--------------');
  WriteLn();
  WriteLn('Lo que sea que se haga en la primera opcion');
  WriteLn();
  WriteLn ('Presione <ENTER> para continuar...');
  ReadLn;
  ClrScr  {Limpia la pantalla}
end;


procedure Segundo;
var
  letra: Char;
begin
  repeat
    WriteLn('Segunda Opcion');
    WriteLn('--------------');
    WriteLn();
    WriteLn('Eliga nuevamente:');
    WriteLn;
    WriteLn ('A. Caso A');
    WriteLn ('B. Caso B');
    WriteLn ('C. Caso C');
    WriteLn ('D. Volver');
    WriteLn;
    Write ('Su caso: ');
    ReadLn (letra);
    ClrScr;
    case letra of
      'a','A':
        begin
          WriteLn('Caso A');
          WriteLn('------');
          WriteLn();
          WriteLn('Lo que se haga en el caso A');
          WriteLn();
          WriteLn ('Presione <ENTER> para continuar...');
          ReadLn;
          ClrScr  {Limpia la pantalla}
        end;
      'b','B':
        begin
          WriteLn('Caso B');
          WriteLn('------');
          WriteLn();
          WriteLn('Lo que se haga en el caso B');
          WriteLn();
          WriteLn ('Presione <ENTER> para continuar...');
          ReadLn;
          ClrScr  {Limpia la pantalla}
        end;
      'c','C':
        begin
          WriteLn('Caso C');
          WriteLn('------');
          WriteLn();
          WriteLn('Lo que se haga en el caso C');
          WriteLn();
          WriteLn ('Presione <ENTER> para continuar...');
          ReadLn;
          ClrScr  {Limpia la pantalla}
        end;
    end;
  until (letra = 'D') or (letra = 'd');
end;


function Tercero: Boolean;
var
  salida: Integer;
begin
  WriteLn('Tercera Opcion');
  WriteLn('--------------');
  WriteLn();
  WriteLn('Lo que sea que se haga en la tercera opcion');
  WriteLn();
  WriteLn('Elija:');
  WriteLn;
  WriteLn ('1. Volver');
  WriteLn ('2. Salir');
  WriteLn();
  Write('> ');
  ReadLn(salida);
  if salida = 1 then
    Tercero := false
  else
    Tercero := true;
  ClrScr  {Limpia la pantalla}
end;


function Cuarto: Boolean;
begin
  WriteLn('Cuarta Opcion');
  WriteLn('-------------');
  WriteLn();
  WriteLn('Lo que sea que se haga en la cuarta opcion');
  WriteLn();
  WriteLn ('Presione <ENTER> para salir...');
  ReadLn;
  Cuarto := true;
  ClrScr  {Limpia la pantalla}
end;


procedure MenuPrincipal (var opcion: Integer);
  begin
  WriteLn ('================================================================================');
    WriteLn ('BIENVENIDO A LA PLATAFORMA DE INFORMACION DE PACIENTES');
    WriteLn ('================================================================================');
    WriteLn;
    WriteLn ('================Elija la accion================================================:');
    WriteLn;
    WriteLn ('/================/1. DESEA INGRESAR HISTORIA DEL(LA) PACIENTE');
    WriteLn ('/================/2. Segunda Opcion');
    WriteLn ('/================/3. Tercera Opcion');
    WriteLn ('/================/4. Cuarta Opcion');
    WriteLn ('/================/5. Salir');
    WriteLn;
    Write ('.......................................Su opcion: ');
    ReadLn (opcion);
    ClrScr;      {Limpia la Pantalla}
  end;


begin
  repeat
    salir := false;
    MenuPrincipal(opcion);
    case opcion of
      1: Primero();
      2: Segundo();
      3: salir := Tercero();
      4: salir := Cuarto();
    end
  until (opcion = 5) or salir
end.