Programación - Evaluación de Registros

Realizar los siguientes programas en Pascal, los mismos deberán tener un menú, ser ordenados, prolijos, y éstos deberán cumplir con lo que se pide en los enunciados para que se tome comocorrecto. (no sólo ser compilados). No se corregirán programas que ni siquiera compilen (ver cada error antes de entregar).

Enunciados:

1. Una sedería fabrica distintos tipos de telas (lino, seda,algodón, etc), cada una de ellas en diferentes colores. Para cada tipo de tela de un color determinado, la sedería guarda la información de cuántos rollos de tela hay disponibles, y cuál es elprecio unitario de cada rollo.

Se pide: (Realizarlo con un menú Case Of)
a) Mostrar en un mensaje el nombre de la tela para la cual hay más cantidad de rollos disponibles y su cantidad (no importael color sino el tipo de tela)
b) Mostrar en un mensaje el nombre de la tela para la cual hay menos cantidad de rollos disponibles y cantidad (no importa el color sino el tipo de tela)
c)Mostrar en un listado el stock disponible
d) Listar todos los productos

2. Identificar y corregir los siguientes errores:


Program Mas_joven
Tipe
Personas : Record
Nombre : String[30];
Edad :Integer;
Sexo : Char;
Direccion : integer[50];
Telefono : string[12];
End;

arre_persona=array[1..20] of persona;
Var
persona:arre_persona;
i, Menor : Integer;
Nombre : String[30];Begin
Clrscr;
For i := 1 to 20 do
Begin

Write(' Ingrese el Nombre de la persona ', i , ': ');
Readln( persona.Nombre );
Write(' Ingrese su Edad: ');
Readln( persona[i].Edad );
Write(' Ingrese suSexo [M / F]: ');
Readln( persona[i].Sexo );
Write(' Ingrese su Dirección: ');
Readln( persona[i].Dire );
Write(' Ingrese su Teléfono: ');
Readln( persona[i].Tel )
End;
Menor := persona[1].Edad;
Fori := 2 to 20 do
If persona[i].Edad > Menor then
Begin
Menor := persona [i].Edad;
Nombre := persona [i].Nombre;
End;
Writeln(' El más joven es ',Nombre,' y tiene ',Menor,' años de edad.');
End.