ejer5.pas

procedure eliminar(var arch: tArchRopaDeportiva; marca: tRegMarca);
var
    mActual, mTemporal: tRegMarca;
    tmp: string;
    iBorrar: longint;
begin
    reset(arch);
    read(arch, mTemporal);
    mActual := mTemporal;
    if(mTemporal.nombre = '0') then
    begin
        { Se guarda la marca y luego se la busca }
        while(not eof(arch) and mActual.codigo <> marca.codigo) do
        begin
            read(arch, mActual);
        end;
        if not eof(arch) then
            mTemporal.nombre := IntToStr(filepos(arch)-1);
        mActual.nombre := '0';
        seek(arch, filepos(arch)-1);
        write(arch, mActual);
    end
    else begin
        while(not eof(arch) and mActual.codigo <> marca.codigo) do
        begin
            read(arch, mActual);
        end;
        mActual.nombre := mTemporal.nombre;
        mTemporal.nombre := IntToStr(filepos(arch)-1);
        seek(arch, filepos(arch)-1); write(arch, mActual);
        seek(arch, 0); write(arch, mTemporal);
    end;
end;