[Manshula]

Esta es una implementacion de secuencia de caracteres que hice pero me han sugerido un par de cosas y quisiera saber si lo dejo asi o hago los cambios.

1) en el TSecuencia.LeerPrim;
mi profesor dice que estoy leyendo el segundo elemento, no el primero.

2)Me sugirieron reemplazar en el Tsecuencia.fin
en vez de comparar con eof, insertar una marca de fin por el Tsecuencia.marcar y luego comparar el fin a traves de ese elemento.

espero que se halla entendido, soy novato en esto. Cualquier ayuda viene bien saludos

unit Secuencia;

interface

type

    TSecuencia = class

                  private

                    f: TextFile;
                    filename: string;

                  public

                    procedure leerPrim(var x:char);
                    procedure leerSig(var x:char);
                    procedure escribir(var x:char);
                    procedure marcar;
                    function fin: boolean;

                end;

implementation

uses SysUtils, Dialogs, Classes;

  procedure TSecuencia.leerPrim;
  begin
    try
      assignFile (f, filename);
      reset(f);
      except
        on exception do
        begin
          ShowMessage('Error al intentar abrir el archivo.');
          exit;
        end;
    end;
    read(f,x);
  end;

  procedure TSecuencia.leerSig;
  begin
    read(f, x);
  end;

  function TSecuencia.fin(): boolean;
  begin

    result := eof(f);
  end;

  procedure TSecuencia.escribir;
  begin
    write (f,x);
  end;

  procedure TSecuencia.marcar();
  var x: char;
  begin
   closefile(f);
  end;
end.