Pseudocódigo/Diagramas de Flujo - ayuda con progrmade pascal

program ConversionNumeroRomano;

uses

  SysUtils;

function NumeroRomanoALetras(numeroRomano: string): string;

begin

  // Implementa aquí la lógica para convertir un número romano a letras

  // Retorna el resultado como una cadena de caracteres

end;

function LetrasANumeroRomano(letras: string): string;

begin

  // Implementa aquí la lógica para convertir letras a un número romano

  // Retorna el resultado como una cadena de caracteres

end;

var

  opcion: integer;

  numeroRomano, letras: string;

begin

  writeln('1. Convertir número romano a letras');

  writeln('2. Convertir letras a número romano');

  write('Ingrese su opción: ');

  readln(opcion);

  if opcion = 1 then

  begin

    write('Ingrese el número romano: ');

    readln(numeroRomano);

    letras := NumeroRomanoALetras(numeroRomano);

    writeln('El número en letras es: ', letras);

  end

  else if opcion = 2 then

  begin

    write('Ingrese las letras: ');

    readln(letras);

    numeroRomano := LetrasANumeroRomano(letras);

    writeln('El número romano es: ', numeroRomano);

  end

  else

  begin

    writeln('Opción inválida');

  end;

  readln;

end.