prog10

TYPE
    Tarea = RECORD
           dato : Char;
           siguiente : ^Tarea
        END;

     ListaTarea = ^Registro;
     Registro = Record
              tarea : Tarea;
              siguiente : ListaTarea
             END;
VAR
     lisTareas : ListaTarea;

Procedure cargarTarea(var lisTareas : ListaTarea);

CONST
    FIN = '.';
Var aux, auxTar : ListaTarea;
    palabra : Char;
    cant, i : Integer;

BEGIN
    writeln('Ingrese la cantidad de tareas desadas: ');
    readln(cant);

    for (i:=1 to cant) do
    begin

    WriteLn('Ingrese una Tarea seguida de un punto: ');
    read(palabra);
    new(lisTareas);
    aux := lisTareas;

    while (palabra <> FIN) do
    begin
           new(aux^.tarea);
           aux^.tarea^.dato := palabra; //h de hola por ejemplo...
           read(palabra); //avanzamos la sig letra de la palabra
           if palabra <> FIN then // si no es un punto creamos otra celda
           begin
              new(aux^.tarea^.siguiente);
              aux^.tarea := aux^.tarea^.siguiente;
           end;
    end;

    aux^.siguiente := nil;

    writeln('Tarea ingresada!!');
    readln;

    cant := cant + 1;
    end;

END;

Procedure imprimirTarea(cadena : Tarea);
Var
        aux : Tarea;
BEGIN
      aux := cadena;
      while (aux <> nil) do
      begin
        writeln(aux^.dato);
        aux := aux^.siguiente;
      end;
END.

//FUNCTION Ordenar(tareas : ListaTarea) : ListaTarea;
//BEGIN
//END;


BEGIN
  cargarTarea(cad);
  imprimirTarea(cad);
END.