Algoritmia - Ayuda con registros!!!!

type

  TPersona = record

    Nombre: string;

    Edad: Integer;

    // Otros campos que desees incluir

  end;

var

  Persona1, Persona2: TPersona;

// Asignación de valores

Persona1.Nombre := 'Juan';

Persona1.Edad := 25;

// Acceso a campos

Writeln('Nombre: ', Persona1.Nombre);

Writeln('Edad: ', Persona1.Edad);

var

  Producto: record

    PrecioUnitario: Real;

    Cantidad: Integer;

    Total: Real;

  end;

begin

  // Entrada de datos

  Write('Ingrese el precio unitario: ');

  Readln(Producto.PrecioUnitario);

  Write('Ingrese la cantidad: ');

  Readln(Producto.Cantidad);

  // Proceso (multiplicación)

  Producto.Total := Producto.PrecioUnitario * Producto.Cantidad;

  // Salida de resultados

  Writeln('El total es: ', Producto.Total:0:2);

end.

program ManipulacionRegistros;

type

  TEstudiante = record

    Nombre: string;

    Edad: Integer;

    Nota: Real;

  end;

var

  Alumno: TEstudiante;

begin

  // Entrada de datos

  Write('Ingrese el nombre del estudiante: ');

  Readln(Alumno.Nombre);

  Write('Ingrese la edad del estudiante: ');

  Readln(Alumno.Edad);

  Write('Ingrese la nota del estudiante: ');

  Readln(Alumno.Nota);

  // Salida de resultados

  Writeln('Datos del estudiante:');

  Writeln('Nombre: ', Alumno.Nombre);

  Writeln('Edad: ', Alumno.Edad);

  Writeln('Nota: ', Alumno.Nota:0:2);

end.